home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1996-02-26 | 17.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: ';*****************************************'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 00 3b 2a 20 20 20 |********|**.;* |
|00000030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000050| 20 20 20 20 2a 00 3b 2a | 20 50 41 4c 45 54 54 45 | *.;*| PALETTE|
|00000060| 4c 49 42 20 2d 20 68 6f | 6c 64 73 20 63 6f 6c 6f |LIB - ho|lds colo|
|00000070| 75 72 20 61 6e 64 20 63 | 79 63 6c 69 6e 67 20 2a |ur and c|ycling *|
|00000080| 00 3b 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.;* | |
|00000090| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 20 20 20 | informa|tion |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 2a 00 3b 2a 20 20 | | *.;* |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000d0| 20 20 20 20 20 2a 00 3b | 2a 2a 2a 2a 2a 2a 2a 2a | *.;|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 00 00 21 6c 69 62 68 | 65 61 64 65 72 7b 23 70 |*..!libh|eader{#p|
|00000110| 61 6c 65 74 74 65 6c 69 | 62 2c 69 6e 69 74 2c 31 |aletteli|b,init,1|
|00000120| 2c 66 69 6e 69 74 2c 65 | 72 72 6f 72 73 7d 00 00 |,finit,e|rrors}..|
|00000130| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|00000140| 73 7b 32 2c 37 7d 00 21 | 6c 69 62 73 7b 23 70 61 |s{2,7}.!|libs{#pa|
|00000150| 6c 65 74 74 65 6c 69 62 | 2c 23 69 61 31 7c 23 70 |lettelib|,#ia1|#p|
|00000160| 64 30 7d 00 21 73 75 62 | 73 7b 64 6f 70 61 6c 6c |d0}.!sub|s{dopall|
|00000170| 6f 61 64 2b 31 2c 30 2c | 30 7d 00 21 61 72 67 73 |oad+1,0,|0}.!args|
|00000180| 7b 32 2c 37 2c 32 7d 00 | 21 6c 69 62 73 7b 23 70 |{2,7,2}.|!libs{#p|
|00000190| 61 6c 65 74 74 65 6c 69 | 62 2c 23 69 61 31 7c 23 |aletteli|b,#ia1|#|
|000001a0| 70 64 30 7d 00 21 73 75 | 62 73 7b 64 6f 70 61 6c |pd0}.!su|bs{dopal|
|000001b0| 6c 6f 61 64 32 2b 31 2c | 30 2c 30 7d 20 3b 2a 2a |load2+1,|0,0} ;**|
|000001c0| 2a 2a 2a 00 21 6e 61 6d | 65 7b 22 4c 6f 61 64 50 |***.!nam|e{"LoadP|
|000001d0| 61 6c 65 74 74 65 22 2c | 22 50 61 6c 65 74 74 65 |alette",|"Palette|
|000001e0| 23 2c 46 69 6c 65 6e 61 | 6d 65 24 5b 2c 50 61 6c |#,Filena|me$[,Pal|
|000001f0| 65 74 74 65 20 4f 66 66 | 73 65 74 5d 22 7d 00 00 |ette Off|set]"}..|
|00000200| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|00000210| 73 7b 32 7d 00 21 6c 69 | 62 73 7b 23 70 61 6c 65 |s{2}.!li|bs{#pale|
|00000220| 74 74 65 6c 69 62 2c 24 | 31 33 38 30 2c 23 73 63 |ttelib,$|1380,#sc|
|00000230| 72 65 65 6e 73 6c 69 62 | 2c 24 31 32 30 32 7d 00 |reenslib|,$1202}.|
|00000240| 21 73 75 62 73 7b 64 6f | 63 79 63 6c 65 2b 31 2c |!subs{do|cycle+1,|
|00000250| 64 6f 63 79 63 6c 65 63 | 68 6b 2c 30 7d 00 21 6e |docyclec|hk,0}.!n|
|00000260| 61 6d 65 7b 22 43 79 63 | 6c 65 22 2c 22 50 61 6c |ame{"Cyc|le","Pal|
|00000270| 65 74 74 65 23 22 7d 20 | 20 20 3b 2a 2a 2a 2a 2a |ette#"} | ;*****|
|00000280| 00 00 21 6e 75 6c 6c 73 | 75 62 7b 67 65 74 70 61 |..!nulls|ub{getpa|
|00000290| 6c 2c 30 2c 30 7d 00 00 | 21 6e 75 6c 6c 73 75 62 |l,0,0}..|!nullsub|
|000002a0| 7b 67 65 74 70 61 6c 32 | 2c 30 2c 30 7d 00 00 21 |{getpal2|,0,0}..!|
|000002b0| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|000002c0| 7b 32 2c 32 2c 32 2c 32 | 7d 00 21 6c 69 62 73 7b |{2,2,2,2|}.!libs{|
|000002d0| 23 67 72 61 70 68 69 63 | 73 6c 69 62 2c 24 35 36 |#graphic|slib,$56|
|000002e0| 30 30 2c 23 73 63 72 65 | 65 6e 73 6c 69 62 2c 24 |00,#scre|enslib,$|
|000002f0| 35 30 30 32 2c 23 62 6c | 69 74 7a 63 6f 70 6c 69 |5002,#bl|itzcopli|
|00000300| 62 2c 24 39 30 30 32 7d | 00 21 73 75 62 73 7b 64 |b,$9002}|.!subs{d|
|00000310| 6f 72 67 62 2c 72 67 62 | 63 68 6b 2c 30 7d 20 20 |orgb,rgb|chk,0} |
|00000320| 20 3b 2a 2a 2a 2a 2a 00 | 21 6e 61 6d 65 7b 22 52 | ;*****.|!name{"R|
|00000330| 47 42 22 2c 22 43 6f 6c | 6f 75 72 20 52 65 67 69 |GB","Col|our Regi|
|00000340| 73 74 65 72 2c 52 65 64 | 2c 47 72 65 65 6e 2c 42 |ster,Red|,Green,B|
|00000350| 6c 75 65 22 7d 00 00 21 | 61 66 75 6e 63 74 69 6f |lue"}..!|afunctio|
|00000360| 6e 7b 32 7d 00 21 61 72 | 67 73 7b 32 7d 00 21 6c |n{2}.!ar|gs{2}.!l|
|00000370| 69 62 73 7b 23 67 72 61 | 70 68 69 63 73 6c 69 62 |ibs{#gra|phicslib|
|00000380| 2c 24 35 36 30 30 2c 23 | 73 63 72 65 65 6e 73 6c |,$5600,#|screensl|
|00000390| 69 62 2c 24 35 30 30 32 | 2c 23 62 6c 69 74 7a 63 |ib,$5002|,#blitzc|
|000003a0| 6f 70 6c 69 62 2c 24 39 | 30 30 32 7d 00 21 73 75 |oplib,$9|002}.!su|
|000003b0| 62 73 7b 64 6f 72 65 64 | 2c 63 6f 6c 63 68 6b 2c |bs{dored|,colchk,|
|000003c0| 30 7d 00 21 6e 61 6d 65 | 7b 22 52 65 64 22 2c 22 |0}.!name|{"Red","|
|000003d0| 28 43 6f 6c 6f 75 72 20 | 52 65 67 69 73 74 65 72 |(Colour |Register|
|000003e0| 29 22 7d 20 20 20 20 3b | 2a 2a 2a 2a 2a 00 00 21 |)"} ;|*****..!|
|000003f0| 61 66 75 6e 63 74 69 6f | 6e 7b 32 7d 00 21 61 72 |afunctio|n{2}.!ar|
|00000400| 67 73 7b 32 7d 00 21 6c | 69 62 73 7b 23 67 72 61 |gs{2}.!l|ibs{#gra|
|00000410| 70 68 69 63 73 6c 69 62 | 2c 24 35 36 30 30 2c 23 |phicslib|,$5600,#|
|00000420| 73 63 72 65 65 6e 73 6c | 69 62 2c 24 35 30 30 32 |screensl|ib,$5002|
|00000430| 2c 23 62 6c 69 74 7a 63 | 6f 70 6c 69 62 2c 24 39 |,#blitzc|oplib,$9|
|00000440| 30 30 32 7d 00 21 73 75 | 62 73 7b 64 6f 67 72 65 |002}.!su|bs{dogre|
|00000450| 65 6e 2c 63 6f 6c 63 68 | 6b 2c 30 7d 00 21 6e 61 |en,colch|k,0}.!na|
|00000460| 6d 65 7b 22 47 72 65 65 | 6e 22 2c 22 28 43 6f 6c |me{"Gree|n","(Col|
|00000470| 6f 75 72 20 52 65 67 69 | 73 74 65 72 29 22 7d 20 |our Regi|ster)"} |
|00000480| 20 3b 2a 2a 2a 2a 2a 00 | 00 21 61 66 75 6e 63 74 | ;*****.|.!afunct|
|00000490| 69 6f 6e 7b 32 7d 00 21 | 61 72 67 73 7b 32 7d 00 |ion{2}.!|args{2}.|
|000004a0| 21 6c 69 62 73 7b 23 67 | 72 61 70 68 69 63 73 6c |!libs{#g|raphicsl|
|000004b0| 69 62 2c 24 35 36 30 30 | 2c 23 73 63 72 65 65 6e |ib,$5600|,#screen|
|000004c0| 73 6c 69 62 2c 24 35 30 | 30 32 2c 23 62 6c 69 74 |slib,$50|02,#blit|
|000004d0| 7a 63 6f 70 6c 69 62 2c | 24 39 30 30 32 7d 00 21 |zcoplib,|$9002}.!|
|000004e0| 73 75 62 73 7b 64 6f 62 | 6c 75 65 2c 63 6f 6c 63 |subs{dob|lue,colc|
|000004f0| 68 6b 2c 30 7d 00 21 6e | 61 6d 65 7b 22 42 6c 75 |hk,0}.!n|ame{"Blu|
|00000500| 65 22 2c 22 28 43 6f 6c | 6f 75 72 20 52 65 67 69 |e","(Col|our Regi|
|00000510| 73 74 65 72 29 22 7d 20 | 20 20 3b 2a 2a 2a 2a 2a |ster)"} | ;*****|
|00000520| 00 00 21 64 75 6d 74 6f | 6b 65 7b 22 50 61 6c 65 |..!dumto|ke{"Pale|
|00000530| 74 74 65 22 2c 22 63 6f | 6c 6f 75 72 20 61 6e 64 |tte","co|lour and|
|00000540| 20 63 79 63 6c 69 6e 67 | 20 69 6e 66 6f 72 6d 61 | cycling| informa|
|00000550| 74 69 6f 6e 22 2c 5f 74 | 6f 6b 65 7d 00 00 21 61 |tion",_t|oke}..!a|
|00000560| 73 74 61 74 65 6d 65 6e | 74 00 21 61 72 67 73 7b |statemen|t.!args{|
|00000570| 32 2c 32 2c 32 2c 32 2c | 32 7d 00 21 6c 69 62 73 |2,2,2,2,|2}.!libs|
|00000580| 7b 23 70 61 6c 65 74 74 | 65 6c 69 62 2c 24 31 30 |{#palett|elib,$10|
|00000590| 38 30 7d 00 21 73 75 62 | 73 7b 64 6f 34 62 69 74 |80}.!sub|s{do4bit|
|000005a0| 70 61 6c 72 67 62 2c 70 | 72 67 62 63 68 6b 2c 30 |palrgb,p|rgbchk,0|
|000005b0| 7d 20 20 20 3b 2a 2a 2a | 2a 2a 00 21 6e 61 6d 65 |} ;***|**.!name|
|000005c0| 7b 22 50 61 6c 52 47 42 | 22 2c 22 50 61 6c 65 74 |{"PalRGB|","Palet|
|000005d0| 74 65 23 2c 43 6f 6c 6f | 75 72 20 52 65 67 69 73 |te#,Colo|ur Regis|
|000005e0| 74 65 72 2c 52 65 64 2c | 47 72 65 65 6e 2c 42 6c |ter,Red,|Green,Bl|
|000005f0| 75 65 22 7d 00 00 21 61 | 73 74 61 74 65 6d 65 6e |ue"}..!a|statemen|
|00000600| 74 00 3b 00 21 61 72 67 | 73 7b 32 2c 32 2c 32 2c |t.;.!arg|s{2,2,2,|
|00000610| 32 7d 00 21 6c 69 62 73 | 7b 23 70 61 6c 65 74 74 |2}.!libs|{#palett|
|00000620| 65 6c 69 62 2c 24 31 30 | 38 30 7d 00 21 73 75 62 |elib,$10|80}.!sub|
|00000630| 73 7b 64 6f 73 65 74 63 | 79 63 6c 65 31 2c 73 65 |s{dosetc|ycle1,se|
|00000640| 74 63 79 63 6c 65 63 68 | 6b 2c 30 7d 00 3b 00 21 |tcyclech|k,0}.;.!|
|00000650| 61 72 67 73 7b 32 2c 32 | 2c 32 2c 32 2c 34 7d 00 |args{2,2|,2,2,4}.|
|00000660| 21 6c 69 62 73 7b 23 70 | 61 6c 65 74 74 65 6c 69 |!libs{#p|aletteli|
|00000670| 62 2c 24 31 30 38 30 7d | 00 21 73 75 62 73 7b 64 |b,$1080}|.!subs{d|
|00000680| 6f 73 65 74 63 79 63 6c | 65 32 2c 73 65 74 63 79 |osetcycl|e2,setcy|
|00000690| 63 6c 65 63 68 6b 32 2c | 30 7d 00 3b 00 21 6e 61 |clechk2,|0}.;.!na|
|000006a0| 6d 65 7b 22 53 65 74 43 | 79 63 6c 65 22 2c 22 50 |me{"SetC|ycle","P|
|000006b0| 61 6c 65 74 74 65 23 2c | 43 79 63 6c 65 2c 4c 6f |alette#,|Cycle,Lo|
|000006c0| 77 20 43 6f 6c 6f 75 72 | 2c 48 69 67 68 20 43 6f |w Colour|,High Co|
|000006d0| 6c 6f 75 72 5b 2c 53 70 | 65 65 64 5d 22 7d 00 00 |lour[,Sp|eed]"}..|
|000006e0| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|000006f0| 73 00 21 6c 69 62 73 00 | 21 73 75 62 73 7b 64 6f |s.!libs.|!subs{do|
|00000700| 73 74 6f 70 63 79 63 6c | 65 2c 30 2c 30 7d 00 21 |stopcycl|e,0,0}.!|
|00000710| 6e 61 6d 65 7b 22 53 74 | 6f 70 43 79 63 6c 65 22 |name{"St|opCycle"|
|00000720| 2c 22 22 7d 00 00 21 61 | 73 74 61 74 65 6d 65 6e |,""}..!a|statemen|
|00000730| 74 00 21 61 72 67 73 7b | 32 2c 32 2c 32 2c 32 7d |t.!args{|2,2,2,2}|
|00000740| 00 21 6c 69 62 73 7b 23 | 73 63 72 65 65 6e 73 6c |.!libs{#|screensl|
|00000750| 69 62 2c 23 75 61 30 2c | 23 67 72 61 70 68 69 63 |ib,#ua0,|#graphic|
|00000760| 73 6c 69 62 2c 23 6c 61 | 36 7d 00 21 73 75 62 73 |slib,#la|6}.!subs|
|00000770| 7b 64 6f 61 61 72 67 62 | 2b 31 2c 61 61 72 67 62 |{doaargb|+1,aargb|
|00000780| 63 68 6b 2c 30 7d 20 20 | 20 3b 2a 2a 2a 2a 2a 00 |chk,0} | ;*****.|
|00000790| 21 6e 61 6d 65 7b 22 41 | 47 41 52 47 42 22 2c 22 |!name{"A|GARGB","|
|000007a0| 43 6f 6c 6f 75 72 20 52 | 65 67 69 73 74 65 72 2c |Colour R|egister,|
|000007b0| 52 65 64 2c 47 72 65 65 | 6e 2c 42 6c 75 65 22 7d |Red,Gree|n,Blue"}|
|000007c0| 00 00 21 61 73 74 61 74 | 65 6d 65 6e 74 00 21 61 |..!astat|ement.!a|
|000007d0| 72 67 73 7b 32 2c 32 2c | 32 2c 32 2c 32 7d 00 21 |rgs{2,2,|2,2,2}.!|
|000007e0| 6c 69 62 73 7b 23 70 61 | 6c 65 74 74 65 6c 69 62 |libs{#pa|lettelib|
|000007f0| 2c 24 31 30 38 30 7d 00 | 21 73 75 62 73 7b 64 6f |,$1080}.|!subs{do|
|00000800| 70 61 6c 72 67 62 2c 61 | 61 70 72 67 62 63 68 6b |palrgb,a|aprgbchk|
|00000810| 2c 30 7d 20 20 20 3b 2a | 2a 2a 2a 2a 00 21 6e 61 |,0} ;*|****.!na|
|00000820| 6d 65 7b 22 41 47 41 50 | 61 6c 52 47 42 22 2c 22 |me{"AGAP|alRGB","|
|00000830| 50 61 6c 65 74 74 65 23 | 2c 43 6f 6c 6f 75 72 20 |Palette#|,Colour |
|00000840| 52 65 67 69 73 74 65 72 | 2c 52 65 64 2c 47 72 65 |Register|,Red,Gre|
|00000850| 65 6e 2c 42 6c 75 65 22 | 7d 00 00 21 6e 75 6c 6c |en,Blue"|}..!null|
|00000860| 73 75 62 7b 6d 61 6b 65 | 34 62 69 74 72 67 62 73 |sub{make|4bitrgbs|
|00000870| 2c 30 2c 30 7d 00 00 21 | 61 66 75 6e 63 74 69 6f |,0,0}..!|afunctio|
|00000880| 6e 7b 32 7d 00 21 61 72 | 67 73 7b 32 7d 00 21 6c |n{2}.!ar|gs{2}.!l|
|00000890| 69 62 73 7b 23 73 63 72 | 65 65 6e 73 6c 69 62 2c |ibs{#scr|eenslib,|
|000008a0| 23 75 61 30 2c 23 67 72 | 61 70 68 69 63 73 6c 69 |#ua0,#gr|aphicsli|
|000008b0| 62 2c 23 6c 61 36 7d 00 | 21 73 75 62 73 7b 64 6f |b,#la6}.|!subs{do|
|000008c0| 61 67 61 72 65 64 2c 61 | 67 61 63 6f 6c 63 68 6b |agared,a|gacolchk|
|000008d0| 2c 30 7d 00 21 6e 61 6d | 65 7b 22 41 47 41 52 65 |,0}.!nam|e{"AGARe|
|000008e0| 64 22 2c 22 28 43 6f 6c | 6f 75 72 20 52 65 67 69 |d","(Col|our Regi|
|000008f0| 73 74 65 72 29 22 7d 20 | 20 20 20 3b 2a 2a 2a 2a |ster)"} | ;****|
|00000900| 2a 00 00 21 61 66 75 6e | 63 74 69 6f 6e 7b 32 7d |*..!afun|ction{2}|
|00000910| 00 21 61 72 67 73 7b 32 | 7d 00 21 6c 69 62 73 7b |.!args{2|}.!libs{|
|00000920| 23 73 63 72 65 65 6e 73 | 6c 69 62 2c 23 75 61 30 |#screens|lib,#ua0|
|00000930| 2c 23 67 72 61 70 68 69 | 63 73 6c 69 62 2c 23 6c |,#graphi|cslib,#l|
|00000940| 61 36 7d 00 21 73 75 62 | 73 7b 64 6f 61 67 61 67 |a6}.!sub|s{doagag|
|00000950| 72 65 65 6e 2c 61 67 61 | 63 6f 6c 63 68 6b 2c 30 |reen,aga|colchk,0|
|00000960| 7d 00 21 6e 61 6d 65 7b | 22 41 47 41 47 72 65 65 |}.!name{|"AGAGree|
|00000970| 6e 22 2c 22 28 43 6f 6c | 6f 75 72 20 52 65 67 69 |n","(Col|our Regi|
|00000980| 73 74 65 72 29 22 7d 20 | 20 3b 2a 2a 2a 2a 2a 00 |ster)"} | ;*****.|
|00000990| 00 21 61 66 75 6e 63 74 | 69 6f 6e 7b 32 7d 00 21 |.!afunct|ion{2}.!|
|000009a0| 61 72 67 73 7b 32 7d 00 | 21 6c 69 62 73 7b 23 73 |args{2}.|!libs{#s|
|000009b0| 63 72 65 65 6e 73 6c 69 | 62 2c 23 75 61 30 2c 23 |creensli|b,#ua0,#|
|000009c0| 67 72 61 70 68 69 63 73 | 6c 69 62 2c 23 6c 61 36 |graphics|lib,#la6|
|000009d0| 7d 00 21 73 75 62 73 7b | 64 6f 61 67 61 62 6c 75 |}.!subs{|doagablu|
|000009e0| 65 2c 61 67 61 63 6f 6c | 63 68 6b 2c 30 7d 00 21 |e,agacol|chk,0}.!|
|000009f0| 6e 61 6d 65 7b 22 41 47 | 41 42 6c 75 65 22 2c 22 |name{"AG|ABlue","|
|00000a00| 28 43 6f 6c 6f 75 72 20 | 52 65 67 69 73 74 65 72 |(Colour |Register|
|00000a10| 29 22 7d 20 20 20 3b 2a | 2a 2a 2a 2a 00 00 21 61 |)"} ;*|****..!a|
|00000a20| 73 74 61 74 65 6d 65 6e | 74 00 21 61 72 67 73 7b |statemen|t.!args{|
|00000a30| 32 7d 00 21 6c 69 62 73 | 7b 23 70 61 6c 65 74 74 |2}.!libs|{#palett|
|00000a40| 65 6c 69 62 2c 24 31 33 | 38 30 2c 23 73 63 72 65 |elib,$13|80,#scre|
|00000a50| 65 6e 73 6c 69 62 2c 24 | 35 32 30 32 2c 23 67 72 |enslib,$|5202,#gr|
|00000a60| 61 70 68 69 63 73 6c 69 | 62 2c 24 35 36 30 30 2c |aphicsli|b,$5600,|
|00000a70| 23 62 6c 69 74 7a 63 6f | 70 6c 69 62 2c 24 39 30 |#blitzco|plib,$90|
|00000a80| 30 32 7d 20 3b 2c 23 69 | 61 31 7c 23 70 64 30 00 |02} ;,#i|a1|#pd0.|
|00000a90| 21 73 75 62 73 7b 73 68 | 6f 77 70 61 6c 2c 73 68 |!subs{sh|owpal,sh|
|00000aa0| 6f 77 70 61 6c 63 68 6b | 2c 30 7d 00 21 6e 61 6d |owpalchk|,0}.!nam|
|00000ab0| 65 7b 22 53 68 6f 77 50 | 61 6c 65 74 74 65 22 2c |e{"ShowP|alette",|
|00000ac0| 22 50 61 6c 65 74 74 65 | 23 22 7d 20 20 20 3b 2a |"Palette|#"} ;*|
|00000ad0| 2a 2a 2a 2a 00 00 21 61 | 73 74 61 74 65 6d 65 6e |****..!a|statemen|
|00000ae0| 74 00 21 61 72 67 73 7b | 32 7d 00 21 6c 69 62 73 |t.!args{|2}.!libs|
|00000af0| 00 21 73 75 62 73 7b 6e | 65 77 70 61 6c 6d 6f 64 |.!subs{n|ewpalmod|
|00000b00| 65 2c 30 2c 30 7d 00 21 | 6e 61 6d 65 7b 22 4e 65 |e,0,0}.!|name{"Ne|
|00000b10| 77 50 61 6c 65 74 74 65 | 4d 6f 64 65 22 2c 22 4f |wPalette|Mode","O|
|00000b20| 6e 7c 4f 66 66 22 7d 00 | 00 21 61 73 74 61 74 65 |n|Off"}.|.!astate|
|00000b30| 6d 65 6e 74 00 21 61 72 | 67 73 7b 32 7d 00 21 6c |ment.!ar|gs{2}.!l|
|00000b40| 69 62 73 7b 23 70 61 6c | 65 74 74 65 6c 69 62 2c |ibs{#pal|ettelib,|
|00000b50| 24 31 32 38 30 7d 00 21 | 73 75 62 73 7b 5f 63 79 |$1280}.!|subs{_cy|
|00000b60| 63 6c 65 70 61 6c 65 74 | 74 65 2c 30 2c 30 7d 00 |clepalet|te,0,0}.|
|00000b70| 21 6e 61 6d 65 7b 22 43 | 79 63 6c 65 50 61 6c 65 |!name{"C|yclePale|
|00000b80| 74 74 65 22 2c 22 50 61 | 6c 65 74 74 65 23 22 7d |tte","Pa|lette#"}|
|00000b90| 00 00 21 61 73 74 61 74 | 65 6d 65 6e 74 00 21 61 |..!astat|ement.!a|
|00000ba0| 72 67 73 7b 23 77 6f 72 | 64 2c 23 77 6f 72 64 2c |rgs{#wor|d,#word,|
|00000bb0| 23 71 75 69 63 6b 7d 00 | 21 6c 69 62 73 7b 23 70 |#quick}.|!libs{#p|
|00000bc0| 61 6c 65 74 74 65 6c 69 | 62 2c 24 31 30 38 30 2c |aletteli|b,$1080,|
|00000bd0| 23 70 61 6c 65 74 74 65 | 6c 69 62 2c 24 31 31 38 |#palette|lib,$118|
|00000be0| 31 7d 00 21 73 75 62 73 | 7b 5f 66 61 64 65 70 61 |1}.!subs|{_fadepa|
|00000bf0| 6c 65 74 74 65 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |lette,0,|0}.!name|
|00000c00| 7b 22 46 61 64 65 50 61 | 6c 65 74 74 65 22 2c 22 |{"FadePa|lette","|
|00000c10| 53 72 63 50 61 6c 65 74 | 74 65 23 2c 44 65 73 74 |SrcPalet|te#,Dest|
|00000c20| 50 61 6c 65 74 74 65 23 | 2c 42 72 69 67 68 74 6e |Palette#|,Brightn|
|00000c30| 65 73 73 2e 71 22 7d 00 | 00 21 61 73 74 61 74 65 |ess.q"}.|.!astate|
|00000c40| 6d 65 6e 74 00 21 61 72 | 67 73 7b 32 2c 32 7d 00 |ment.!ar|gs{2,2}.|
|00000c50| 21 6c 69 62 73 7b 23 70 | 61 6c 65 74 74 65 6c 69 |!libs{#p|aletteli|
|00000c60| 62 2c 24 31 33 38 30 7d | 00 21 73 75 62 73 7b 5f |b,$1380}|.!subs{_|
|00000c70| 69 6e 69 74 70 61 6c 65 | 74 74 65 2c 30 2c 30 7d |initpale|tte,0,0}|
|00000c80| 00 21 6e 61 6d 65 7b 22 | 49 6e 69 74 50 61 6c 65 |.!name{"|InitPale|
|00000c90| 74 74 65 22 2c 22 50 61 | 6c 65 74 74 65 23 2c 4e |tte","Pa|lette#,N|
|00000ca0| 75 6d 43 6f 6c 6f 72 73 | 22 7d 00 00 21 61 73 74 |umColors|"}..!ast|
|00000cb0| 61 74 65 6d 65 6e 74 00 | 21 61 72 67 73 7b 32 2c |atement.|!args{2,|
|00000cc0| 32 2c 32 2c 32 2c 32 2c | 32 2c 32 2c 32 2c 32 7d |2,2,2,2,|2,2,2,2}|
|00000cd0| 00 21 6c 69 62 73 7b 23 | 70 61 6c 65 74 74 65 6c |.!libs{#|palettel|
|00000ce0| 69 62 2c 24 31 33 38 30 | 7d 00 21 73 75 62 73 7b |ib,$1380|}.!subs{|
|00000cf0| 5f 70 61 6c 65 74 74 65 | 72 61 6e 67 65 2c 30 2c |_palette|range,0,|
|00000d00| 30 7d 00 21 6e 61 6d 65 | 7b 22 50 61 6c 65 74 74 |0}.!name|{"Palett|
|00000d10| 65 52 61 6e 67 65 22 2c | 22 50 61 6c 65 74 74 65 |eRange",|"Palette|
|00000d20| 23 2c 53 74 61 72 74 43 | 6f 6c 2c 45 6e 64 43 6f |#,StartC|ol,EndCo|
|00000d30| 6c 2c 72 30 2c 67 30 2c | 62 30 2c 72 31 2c 67 31 |l,r0,g0,|b0,r1,g1|
|00000d40| 2c 62 31 22 7d 00 00 21 | 61 73 74 61 74 65 6d 65 |,b1"}..!|astateme|
|00000d50| 6e 74 00 21 61 72 67 73 | 7b 32 2c 32 7d 00 21 6c |nt.!args|{2,2}.!l|
|00000d60| 69 62 73 7b 23 70 61 6c | 65 74 74 65 6c 69 62 2c |ibs{#pal|ettelib,|
|00000d70| 24 31 32 38 30 2c 23 70 | 61 6c 65 74 74 65 6c 69 |$1280,#p|aletteli|
|00000d80| 62 2c 24 31 33 38 31 7d | 00 21 73 75 62 73 7b 5f |b,$1381}|.!subs{_|
|00000d90| 64 75 70 6c 69 63 61 74 | 65 70 61 6c 65 74 74 65 |duplicat|epalette|
|00000da0| 2c 30 2c 30 7d 00 21 6e | 61 6d 65 7b 22 44 75 70 |,0,0}.!n|ame{"Dup|
|00000db0| 6c 69 63 61 74 65 50 61 | 6c 65 74 74 65 22 2c 22 |licatePa|lette","|
|00000dc0| 53 72 63 50 61 6c 65 74 | 74 65 23 2c 44 65 73 74 |SrcPalet|te#,Dest|
|00000dd0| 50 61 6c 65 74 74 65 23 | 22 7d 00 00 21 61 73 74 |Palette#|"}..!ast|
|00000de0| 61 74 65 6d 65 6e 74 00 | 21 61 72 67 73 7b 23 77 |atement.|!args{#w|
|00000df0| 6f 72 64 2c 23 6c 6f 6e | 67 2c 23 77 6f 72 64 7d |ord,#lon|g,#word}|
|00000e00| 00 21 6c 69 62 73 7b 23 | 70 61 6c 65 74 74 65 6c |.!libs{#|palettel|
|00000e10| 69 62 2c 24 31 33 38 30 | 7d 00 21 73 75 62 73 7b |ib,$1380|}.!subs{|
|00000e20| 5f 63 6c 75 64 67 65 70 | 61 6c 65 74 74 65 2c 30 |_cludgep|alette,0|
|00000e30| 2c 30 7d 00 21 61 72 67 | 73 7b 23 77 6f 72 64 2c |,0}.!arg|s{#word,|
|00000e40| 23 6c 6f 6e 67 7d 00 21 | 6c 69 62 73 7b 23 70 61 |#long}.!|libs{#pa|
|00000e50| 6c 65 74 74 65 6c 69 62 | 2c 24 31 33 38 30 7d 00 |lettelib|,$1380}.|
|00000e60| 21 73 75 62 73 7b 5f 63 | 6c 75 64 67 65 70 61 6c |!subs{_c|ludgepal|
|00000e70| 65 74 74 65 32 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |ette2,0,|0}.!name|
|00000e80| 7b 22 44 65 63 6f 64 65 | 50 61 6c 65 74 74 65 22 |{"Decode|Palette"|
|00000e90| 2c 22 50 61 6c 65 74 74 | 65 23 2c 4d 65 6d 6f 72 |,"Palett|e#,Memor|
|00000ea0| 79 4c 6f 63 61 74 69 6f | 6e 5b 2c 50 61 6c 65 74 |yLocatio|n[,Palet|
|00000eb0| 74 65 20 4f 66 66 73 65 | 74 5d 22 7d 00 00 5f 6c |te Offse|t]"}.._l|
|00000ec0| 6f 61 64 3a 21 6e 75 6c | 6c 73 75 62 7b 30 2c 30 |oad:!nul|lsub{0,0|
|00000ed0| 2c 30 7d 00 00 5f 73 61 | 76 65 3a 21 6e 75 6c 6c |,0}.._sa|ve:!null|
|00000ee0| 73 75 62 7b 30 2c 30 2c | 30 7d 00 00 5f 75 73 65 |sub{0,0,|0}.._use|
|00000ef0| 3a 21 6e 75 6c 6c 73 75 | 62 7b 75 73 65 70 61 6c |:!nullsu|b{usepal|
|00000f00| 2c 75 73 65 70 61 6c 63 | 68 6b 2c 30 2c 23 73 63 |,usepalc|hk,0,#sc|
|00000f10| 72 65 65 6e 73 6c 69 62 | 2c 24 35 32 30 32 2c 23 |reenslib|,$5202,#|
|00000f20| 67 72 61 70 68 69 63 73 | 6c 69 62 2c 24 35 36 30 |graphics|lib,$560|
|00000f30| 30 2c 23 62 6c 69 74 7a | 63 6f 70 6c 69 62 2c 24 |0,#blitz|coplib,$|
|00000f40| 39 30 30 32 7d 00 3b 61 | 33 3d 50 61 6c 65 74 74 |9002}.;a|3=Palett|
|00000f50| 65 20 23 2c 20 61 32 3d | 53 63 72 65 65 6e 2c 20 |e #, a2=|Screen, |
|00000f60| 61 36 3d 67 72 2e 6c 69 | 62 2c 20 61 31 3d 69 6e |a6=gr.li|b, a1=in|
|00000f70| 74 75 69 6c 69 62 00 3b | 21 6e 75 6c 6c 73 75 62 |tuilib.;|!nullsub|
|00000f80| 7b 30 2c 30 2c 30 7d 00 | 00 5f 66 72 65 65 3a 21 |{0,0,0}.|._free:!|
|00000f90| 6e 75 6c 6c 73 75 62 7b | 66 72 65 65 70 61 6c 2c |nullsub{|freepal,|
|00000fa0| 30 2c 30 7d 00 00 69 6e | 69 74 3a 21 6e 75 6c 6c |0,0}..in|it:!null|
|00000fb0| 73 75 62 7b 63 6f 64 65 | 69 6e 69 74 2c 30 2c 30 |sub{code|init,0,0|
|00000fc0| 2c 23 67 72 61 70 68 69 | 63 73 6c 69 62 2c 23 6c |,#graphi|cslib,#l|
|00000fd0| 61 30 7d 00 00 66 69 6e | 69 74 3a 21 6e 75 6c 6c |a0}..fin|it:!null|
|00000fe0| 73 75 62 7b 63 6f 64 65 | 66 69 6e 69 74 2c 30 2c |sub{code|finit,0,|
|00000ff0| 30 7d 00 00 21 6c 69 62 | 66 69 6e 7b 5f 74 6f 6b |0}..!lib|fin{_tok|
|00001000| 65 2c 5f 6c 6f 61 64 2c | 5f 73 61 76 65 2c 5f 75 |e,_load,|_save,_u|
|00001010| 73 65 2c 5f 66 72 65 65 | 2c 34 2c 37 7d 00 00 3b |se,_free|,4,7}..;|
|00001020| 00 3b 70 61 6c 65 74 74 | 65 20 73 74 72 75 63 74 |.;palett|e struct|
|00001030| 3a 00 3b 00 3b 30 2e 6c | 20 3a 20 70 61 6c 65 74 |:.;.;0.l| : palet|
|00001040| 74 65 20 52 47 42 53 20 | 2d 20 72 65 64 30 2e 6c |te RGBS |- red0.l|
|00001050| 2c 67 72 65 65 6e 30 2e | 6c 2c 62 6c 75 65 30 2c |,green0.|l,blue0,|
|00001060| 6c 2c 72 65 64 31 2e 6c | 2e 2e 2e 00 3b 34 2e 77 |l,red1.l|....;4.w|
|00001070| 20 3a 20 6e 75 6d 62 65 | 72 20 6f 66 20 61 62 6f | : numbe|r of abo|
|00001080| 76 65 00 3b 00 3b 36 2e | 77 20 20 3a 20 6c 6f 77 |ve.;.;6.|w : low|
|00001090| 20 63 6f 6c 6f 75 72 20 | 6f 66 20 63 79 63 6c 65 | colour |of cycle|
|000010a0| 20 2d 20 30 20 66 6f 72 | 20 65 6e 64 00 3b 38 2e | - 0 for| end.;8.|
|000010b0| 77 20 20 3a 20 68 69 67 | 68 20 63 6f 6c 6f 75 72 |w : hig|h colour|
|000010c0| 20 6f 66 20 63 79 63 6c | 65 00 3b 31 30 2e 77 20 | of cycl|e.;10.w |
|000010d0| 3a 20 73 70 65 65 64 00 | 3b 31 32 2e 77 20 3a 20 |: speed.|;12.w : |
|000010e0| 76 61 72 00 3b 00 3b 2e | 2e 2e 2e 00 3b 00 00 3b |var.;.;.|....;..;|
|000010f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 43 |********|****** C|
|00001100| 4f 44 45 20 42 45 4c 4f | 57 20 2a 2a 2a 2a 2a 2a |ODE BELO|W ******|
|00001110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 00 00 67 66 78 62 61 |********|*..gfxba|
|00001120| 73 65 3a 80 25 2e 6c 20 | 30 00 63 79 63 6f 6e 3a |se:.%.l |0.cycon:|
|00001130| 80 25 20 30 00 63 79 63 | 6c 65 6c 69 73 74 3a 80 |.% 0.cyc|lelist:.|
|00001140| 25 2e 6c 20 30 3a 3b 20 | 61 20 6c 69 73 74 20 6f |%.l 0:; |a list o|
|00001150| 66 20 61 6c 6c 20 73 74 | 75 66 66 20 74 6f 20 62 |f all st|uff to b|
|00001160| 65 20 63 79 63 6c 65 64 | 2e 00 20 20 20 20 20 20 |e cycled|.. |
|00001170| 20 20 20 20 20 20 20 20 | 20 20 20 3b 30 2e 6c 20 | | ;0.l |
|00001180| 3d 20 6e 65 78 74 00 20 | 20 20 20 20 20 20 20 20 |= next. | |
|00001190| 20 20 20 20 20 20 20 20 | 3b 34 2e 6c 20 3d 20 70 | |;4.l = p|
|000011a0| 61 6c 65 74 74 65 00 20 | 20 20 20 20 20 20 20 20 |alette. | |
|000011b0| 20 20 20 20 20 20 20 20 | 3b 38 2e 6c 20 3d 20 76 | |;8.l = v|
|000011c0| 69 65 77 70 6f 72 74 2e | 00 61 67 61 6d 6f 64 65 |iewport.|.agamode|
|000011d0| 3a 80 25 20 30 00 72 67 | 62 73 34 62 69 74 3a 80 |:.% 0.rg|bs4bit:.|
|000011e0| 26 20 33 32 20 20 20 3b | 33 32 20 34 20 62 69 74 |& 32 ;|32 4 bit|
|000011f0| 20 52 47 42 20 76 61 6c | 73 2e 00 00 64 6f 34 62 | RGB val|s...do4b|
|00001200| 69 74 70 61 6c 72 67 62 | 00 3b 00 80 7e 20 64 35 |itpalrgb|.;..~ d5|
|00001210| 2c 2d 28 61 37 29 00 80 | 7e 20 64 32 2c 64 35 3a |,-(a7)..|~ d2,d5:|
|00001220| 80 7c 20 23 34 2c 64 32 | 3a 80 8a 20 64 35 2c 64 |.| #4,d2|:.. d5,d|
|00001230| 32 20 3b 66 72 6f 6d 20 | 6e 79 62 20 74 6f 20 62 |2 ;from |nyb to b|
|00001240| 79 74 65 2e 2e 2e 00 80 | 7e 20 64 33 2c 64 35 3a |yte.....|~ d3,d5:|
|00001250| 80 7c 20 23 34 2c 64 33 | 3a 80 8a 20 64 35 2c 64 |.| #4,d3|:.. d5,d|
|00001260| 33 00 80 7e 20 64 34 2c | 64 35 3a 80 7c 20 23 34 |3..~ d4,|d5:.| #4|
|00001270| 2c 64 34 3a 80 8a 20 64 | 35 2c 64 34 00 80 7e 20 |,d4:.. d|5,d4..~ |
|00001280| 28 61 37 29 2b 2c 64 35 | 00 3b 00 2e 64 6f 70 61 |(a7)+,d5|.;..dopa|
|00001290| 6c 72 67 62 20 20 3b 61 | 30 3d 70 61 6c 65 74 74 |lrgb ;a|0=palett|
|000012a0| 65 00 3b 00 3b 64 31 3d | 63 6f 6c 6f 75 72 20 72 |e.;.;d1=|colour r|
|000012b0| 65 67 2c 20 64 32 2e 62 | 3d 72 65 64 2c 20 64 33 |eg, d2.b|=red, d3|
|000012c0| 2e 62 3d 67 72 65 65 6e | 2c 20 64 34 2e 62 3d 62 |.b=green|, d4.b=b|
|000012d0| 6c 75 65 2e 00 3b 00 80 | 82 2e 6c 20 64 30 2d 64 |lue..;..|..l d0-d|
|000012e0| 35 2f 61 30 2d 61 32 2c | 2d 28 61 37 29 00 3b 00 |5/a0-a2,|-(a7).;.|
|000012f0| 80 7e 20 64 32 2c 64 35 | 3a 80 7c 20 23 38 2c 64 |.~ d2,d5|:.| #8,d|
|00001300| 32 3a 80 8a 20 64 35 2c | 64 32 00 80 7e 20 64 32 |2:.. d5,|d2..~ d2|
|00001310| 2c 64 35 3a 80 ac 20 64 | 32 3a 80 7e 20 64 35 2c |,d5:.. d|2:.~ d5,|
|00001320| 64 32 00 3b 00 80 7e 20 | 64 33 2c 64 35 3a 80 7c |d2.;..~ |d3,d5:.||
|00001330| 20 23 38 2c 64 33 3a 80 | 8a 20 64 35 2c 64 33 00 | #8,d3:.|. d5,d3.|
|00001340| 80 7e 20 64 33 2c 64 35 | 3a 80 ac 20 64 33 3a 80 |.~ d3,d5|:.. d3:.|
|00001350| 7e 20 64 35 2c 64 33 00 | 3b 00 80 7e 20 64 34 2c |~ d5,d3.|;..~ d4,|
|00001360| 64 35 3a 80 7c 20 23 38 | 2c 64 34 3a 80 8a 20 64 |d5:.| #8|,d4:.. d|
|00001370| 35 2c 64 34 00 80 7e 20 | 64 34 2c 64 35 3a 80 ac |5,d4..~ |d4,d5:..|
|00001380| 20 64 34 3a 80 7e 20 64 | 35 2c 64 34 00 3b 00 80 | d4:.~ d|5,d4.;..|
|00001390| 7e 2e 6c 20 61 30 2c 61 | 32 3a 80 7e 2e 6c 20 28 |~.l a0,a|2:.~.l (|
|000013a0| 61 32 29 2c 61 30 3a 80 | 5c 20 34 28 61 32 29 2c |a2),a0:.|\ 4(a2),|
|000013b0| 64 31 3a 80 4e 20 27 6e | 6f 67 72 6f 77 00 3b 00 |d1:.N 'n|ogrow.;.|
|000013c0| 3b 67 6f 74 74 61 20 65 | 78 70 61 6e 64 20 70 61 |;gotta e|xpand pa|
|000013d0| 6c 65 74 74 65 20 6f 62 | 6a 65 63 74 2e 00 3b 00 |lette ob|ject..;.|
|000013e0| 80 7e 20 64 31 2c 2d 28 | 61 37 29 00 3b 00 80 7e |.~ d1,-(|a7).;..~|
|000013f0| 20 64 31 2c 64 30 3a 80 | 40 20 23 31 2c 64 30 3a | d1,d0:.|@ #1,d0:|
|00001400| 80 84 20 23 31 32 2c 64 | 30 3a 80 40 2e 6c 20 23 |.. #12,d|0:.@.l #|
|00001410| 38 2c 64 30 00 80 7e 2e | 6c 20 23 24 31 30 30 30 |8,d0..~.|l #$1000|
|00001420| 31 2c 64 31 3a 80 38 20 | 24 63 30 30 32 3a 80 7e |1,d1:.8 |$c002:.~|
|00001430| 2e 6c 20 64 30 2c 61 30 | 20 20 3b 6e 65 77 20 70 |.l d0,a0| ;new p|
|00001440| 61 6c 65 74 74 65 00 3b | 00 80 7e 2e 6c 20 28 61 |alette.;|..~.l (a|
|00001450| 32 29 2c 64 30 3a 80 48 | 20 27 6e 6f 6f 6c 64 3a |2),d0:.H| 'noold:|
|00001460| 80 7e 2e 6c 20 61 30 2c | 2d 28 61 37 29 00 80 7e |.~.l a0,|-(a7)..~|
|00001470| 2e 6c 20 64 30 2c 61 31 | 3a 80 7e 20 34 28 61 32 |.l d0,a1|:.~ 4(a2|
|00001480| 29 2c 64 30 3a 80 84 20 | 23 33 2c 64 30 3a 80 40 |),d0:.. |#3,d0:.@|
|00001490| 20 23 31 2c 64 30 00 27 | 6c 6f 6f 70 3a 80 7e 2e | #1,d0.'|loop:.~.|
|000014a0| 6c 20 28 61 31 29 2b 2c | 28 61 30 29 2b 3a 80 6e |l (a1)+,|(a0)+:.n|
|000014b0| 20 64 30 2c 27 6c 6f 6f | 70 00 80 7e 2e 6c 20 28 | d0,'loo|p..~.l (|
|000014c0| 61 32 29 2c 61 31 3a 80 | 7e 20 34 28 61 32 29 2c |a2),a1:.|~ 4(a2),|
|000014d0| 64 30 3a 80 84 20 23 31 | 32 2c 64 30 3a 80 40 2e |d0:.. #1|2,d0:.@.|
|000014e0| 6c 20 23 38 2c 64 30 00 | 80 38 20 24 63 30 30 33 |l #8,d0.|.8 $c003|
|000014f0| 3a 80 7e 2e 6c 20 28 61 | 37 29 2b 2c 61 30 00 3b |:.~.l (a|7)+,a0.;|
|00001500| 00 27 6e 6f 6f 6c 64 00 | 80 7e 2e 6c 20 61 30 2c |.'noold.|.~.l a0,|
|00001510| 28 61 32 29 3a 80 7e 20 | 28 61 37 29 2b 2c 64 31 |(a2):.~ |(a7)+,d1|
|00001520| 00 80 7e 20 64 31 2c 34 | 28 61 32 29 3a 80 40 20 |..~ d1,4|(a2):.@ |
|00001530| 23 31 2c 34 28 61 32 29 | 00 80 7e 20 64 31 2c 28 |#1,4(a2)|..~ d1,(|
|00001540| 61 30 29 3a 80 40 20 23 | 31 2c 28 61 30 29 00 3b |a0):.@ #|1,(a0).;|
|00001550| 00 27 6e 6f 67 72 6f 77 | 00 3b 00 80 84 20 23 31 |.'nogrow|.;... #1|
|00001560| 32 2c 64 31 3a 80 7a 20 | 34 28 61 30 2c 64 31 29 |2,d1:.z |4(a0,d1)|
|00001570| 2c 61 30 00 80 7e 2e 6c | 20 64 32 2c 28 61 30 29 |,a0..~.l| d2,(a0)|
|00001580| 2b 3a 80 7e 2e 6c 20 64 | 33 2c 28 61 30 29 2b 3a |+:.~.l d|3,(a0)+:|
|00001590| 80 7e 2e 6c 20 64 34 2c | 28 61 30 29 2b 00 3b 00 |.~.l d4,|(a0)+.;.|
|000015a0| 80 82 2e 6c 20 28 61 37 | 29 2b 2c 64 30 2d 64 35 |...l (a7|)+,d0-d5|
|000015b0| 2f 61 30 2d 61 32 3a 80 | 94 00 00 6d 61 6b 65 34 |/a0-a2:.|...make4|
|000015c0| 62 69 74 72 67 62 73 20 | 20 3b 61 30 3d 70 61 6c |bitrgbs | ;a0=pal|
|000015d0| 65 74 74 65 20 6f 62 6a | 65 63 74 00 20 20 20 20 |ette obj|ect. |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 3b 52 65 74 75 72 | | ;Retur|
|000015f0| 6e 20 61 31 2e 2e 2e 34 | 20 62 69 74 20 52 47 42 |n a1...4| bit RGB|
|00001600| 20 74 61 62 6c 65 2c 20 | 64 30 20 3a 20 6e 75 6d | table, |d0 : num|
|00001610| 62 65 72 20 6f 66 20 63 | 6f 6c 6f 72 73 00 20 20 |ber of c|olors. |
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 00 80 7a | | ;..z|
|00001630| 20 72 67 62 73 34 62 69 | 74 28 70 63 29 2c 61 31 | rgbs4bi|t(pc),a1|
|00001640| 3a 80 7e 20 34 28 61 30 | 29 2c 64 30 3a 80 48 20 |:.~ 4(a0|),d0:.H |
|00001650| 27 64 6f 6e 65 00 80 5c | 20 23 33 32 2c 64 30 3a |'done..\| #32,d0:|
|00001660| 80 4d 20 27 73 6b 69 70 | 3a 80 7e 20 23 33 32 2c |.M 'skip|:.~ #32,|
|00001670| 64 30 00 27 73 6b 69 70 | 3a 80 82 2e 6c 20 64 30 |d0.'skip|:...l d0|
|00001680| 2f 61 32 2c 2d 28 61 37 | 29 3a 80 7e 2e 6c 20 28 |/a2,-(a7|):.~.l (|
|00001690| 61 30 29 2c 61 32 3a 80 | 40 20 23 34 2c 61 32 3a |a0),a2:.|@ #4,a2:|
|000016a0| 80 aa 20 23 31 2c 64 30 | 00 27 6c 6f 6f 70 00 00 |.. #1,d0|.'loop..|
|000016b0| 00 3b 2a 2a 2a 20 4d 49 | 4b 20 46 49 58 20 28 66 |.;*** MI|K FIX (f|
|000016c0| 61 73 74 65 72 20 63 6f | 64 65 2c 20 6e 6f 20 62 |aster co|de, no b|
|000016d0| 75 67 73 29 20 2a 2a 2a | 00 80 7e 2e 6c 20 28 61 |ugs) ***|..~.l (a|
|000016e0| 32 29 2b 2c 64 31 20 3a | 20 80 42 20 23 24 66 30 |2)+,d1 :| .B #$f0|
|000016f0| 2c 64 31 20 3a 20 80 7c | 20 23 34 2c 64 31 00 80 |,d1 : .|| #4,d1..|
|00001700| 7e 2e 6c 20 28 61 32 29 | 2b 2c 64 32 20 3a 20 80 |~.l (a2)|+,d2 : .|
|00001710| 42 20 23 24 66 30 2c 64 | 32 20 3a 20 80 8a 20 64 |B #$f0,d|2 : .. d|
|00001720| 32 2c 64 31 00 80 7e 2e | 6c 20 28 61 32 29 2b 2c |2,d1..~.|l (a2)+,|
|00001730| 64 32 20 3a 20 80 42 20 | 23 24 66 30 2c 64 32 20 |d2 : .B |#$f0,d2 |
|00001740| 3a 20 80 7d 20 23 34 2c | 64 32 20 3a 20 80 8a 20 |: .} #4,|d2 : .. |
|00001750| 64 32 2c 64 31 00 00 3b | 2a 2a 2a 20 4c 41 4d 45 |d2,d1..;|*** LAME|
|00001760| 20 41 43 49 44 20 43 4f | 44 45 20 28 73 6c 6f 77 | ACID CO|DE (slow|
|00001770| 20 63 6f 64 65 2c 20 65 | 76 65 6e 20 62 75 67 67 | code, e|ven bugg|
|00001780| 65 64 29 20 2a 2a 2a 00 | 3b 3b 3b 4d 4f 56 45 2e |ed) ***.|;;;MOVE.|
|00001790| 6c 20 28 61 32 29 2b 2c | 64 31 3a 52 4f 4c 2e 6c |l (a2)+,|d1:ROL.l|
|000017a0| 20 23 38 2c 64 31 3a 52 | 4f 4c 20 23 34 2c 64 31 | #8,d1:R|OL #4,d1|
|000017b0| 3a 41 4e 44 20 23 24 66 | 30 30 2c 64 31 00 3b 3b |:AND #$f|00,d1.;;|
|000017c0| 3b 4d 4f 56 45 2e 6c 20 | 28 61 32 29 2b 2c 64 32 |;MOVE.l |(a2)+,d2|
|000017d0| 3a 52 4f 4c 2e 6c 20 23 | 38 2c 64 32 3a 4d 4f 56 |:ROL.l #|8,d2:MOV|
|000017e0| 45 2e 62 20 64 32 2c 64 | 31 00 3b 3b 3b 4d 4f 56 |E.b d2,d|1.;;;MOV|
|000017f0| 45 2e 6c 20 28 61 32 29 | 2b 2c 64 32 3a 52 4f 4c |E.l (a2)|+,d2:ROL|
|00001800| 2e 6c 20 23 34 2c 64 32 | 3a 41 4e 44 20 23 31 35 |.l #4,d2|:AND #15|
|00001810| 2c 64 32 3a 4f 52 20 64 | 32 2c 64 31 00 00 00 80 |,d2:OR d|2,d1....|
|00001820| 7e 20 64 31 2c 28 61 31 | 29 2b 3a 80 6e 20 64 30 |~ d1,(a1|)+:.n d0|
|00001830| 2c 27 6c 6f 6f 70 3a 80 | 7a 20 72 67 62 73 34 62 |,'loop:.|z rgbs4b|
|00001840| 69 74 28 70 63 29 2c 61 | 31 00 80 82 2e 6c 20 28 |it(pc),a|1....l (|
|00001850| 61 37 29 2b 2c 64 30 2f | 61 32 00 27 64 6f 6e 65 |a7)+,d0/|a2.'done|
|00001860| 3a 80 94 00 00 2e 63 6f | 64 65 69 6e 69 74 00 80 |:.....co|deinit..|
|00001870| 7e 2e 6c 20 61 30 2c 67 | 66 78 62 61 73 65 3a 80 |~.l a0,g|fxbase:.|
|00001880| 5b 2e 6c 20 63 79 63 6c | 65 6c 69 73 74 3a 80 5b |[.l cycl|elist:.[|
|00001890| 20 63 79 63 6f 6e 00 80 | 38 20 23 65 6e 76 69 72 | cycon..|8 #envir|
|000018a0| 6f 6e 6c 69 62 20 80 7c | 20 37 2b 37 00 80 5c 20 |onlib .|| 7+7..\ |
|000018b0| 23 33 39 2c 64 30 3a 80 | 99 20 64 30 3a 80 76 2e |#39,d0:.|. d0:.v.|
|000018c0| 77 20 64 30 3a 80 7e 20 | 64 30 2c 61 67 61 6d 6f |w d0:.~ |d0,agamo|
|000018d0| 64 65 00 80 94 00 00 63 | 6f 64 65 66 69 6e 69 74 |de.....c|odefinit|
|000018e0| 00 3b 00 2e 63 79 63 6f | 66 66 00 80 7e 20 63 79 |.;..cyco|ff..~ cy|
|000018f0| 63 6f 6e 28 70 63 29 2c | 64 30 3a 80 48 20 27 73 |con(pc),|d0:.H 's|
|00001900| 6b 69 70 3a 80 89 20 63 | 79 63 6f 6e 00 80 7e 20 |kip:.. c|ycon..~ |
|00001910| 23 24 38 30 30 35 2c 64 | 30 3a 80 38 20 24 63 31 |#$8005,d|0:.8 $c1|
|00001920| 30 31 00 27 73 6b 69 70 | 3a 80 7e 2e 6c 20 63 79 |01.'skip|:.~.l cy|
|00001930| 63 6c 65 6c 69 73 74 28 | 70 63 29 2c 61 32 00 27 |clelist(|pc),a2.'|
|00001940| 6c 6f 6f 70 3a 80 5c 20 | 23 30 2c 61 32 3a 80 48 |loop:.\ |#0,a2:.H|
|00001950| 20 27 64 6f 6e 65 00 80 | 7e 2e 6c 20 61 32 2c 61 | 'done..|~.l a2,a|
|00001960| 31 3a 80 81 20 23 31 32 | 2c 64 30 3a 80 7e 2e 6c |1:.. #12|,d0:.~.l|
|00001970| 20 28 61 32 29 2c 61 32 | 3a 80 38 20 24 63 30 30 | (a2),a2|:.8 $c00|
|00001980| 33 00 80 58 20 27 6c 6f | 6f 70 00 27 64 6f 6e 65 |3..X 'lo|op.'done|
|00001990| 3a 80 94 00 00 64 6f 70 | 61 6c 6c 6f 61 64 3a 20 |:....dop|alload: |
|000019a0| 20 20 20 20 20 20 20 20 | 20 20 3b 64 30 3d 66 69 | | ;d0=fi|
|000019b0| 6c 65 6e 61 6d 65 2c 20 | 61 31 3d 70 61 6c 65 74 |lename, |a1=palet|
|000019c0| 74 65 20 69 74 65 6d 00 | 80 7e 2e 6c 20 64 31 2c |te item.|.~.l d1,|
|000019d0| 61 30 00 3b 00 67 65 74 | 70 61 6c 3a 3b 70 61 6c |a0.;.get|pal:;pal|
|000019e0| 65 74 74 65 20 6e 61 6d | 65 20 69 6e 20 61 30 2c |ette nam|e in a0,|
|000019f0| 20 69 74 65 6d 20 69 6e | 20 61 31 00 80 82 2e 6c | item in| a1....l|
|00001a00| 20 64 30 2d 64 35 2c 2d | 28 61 37 29 3a 80 81 20 | d0-d5,-|(a7):.. |
|00001a10| 23 30 2c 64 32 3a 80 59 | 20 6c 6f 61 64 74 68 65 |#0,d2:.Y| loadthe|
|00001a20| 70 61 6c 00 80 82 2e 6c | 20 28 61 37 29 2b 2c 64 |pal....l| (a7)+,d|
|00001a30| 30 2d 64 35 3a 80 94 00 | 00 64 6f 70 61 6c 6c 6f |0-d5:...|.dopallo|
|00001a40| 61 64 32 3a 3b 64 30 3d | 66 69 6c 65 6e 61 6d 65 |ad2:;d0=|filename|
|00001a50| 2c 20 61 31 3d 70 61 6c | 65 74 74 65 20 69 74 65 |, a1=pal|ette ite|
|00001a60| 6d 2c 20 64 32 3d 6f 66 | 66 73 65 74 00 3b 00 80 |m, d2=of|fset.;..|
|00001a70| 7e 2e 6c 20 64 31 2c 61 | 30 3a 80 7e 2e 6c 20 64 |~.l d1,a|0:.~.l d|
|00001a80| 32 2c 64 30 00 3b 00 67 | 65 74 70 61 6c 32 3a 3b |2,d0.;.g|etpal2:;|
|00001a90| 70 61 6c 65 74 74 65 20 | 6e 61 6d 65 20 69 6e 20 |palette |name in |
|00001aa0| 61 30 2c 69 74 65 6d 20 | 69 6e 20 61 31 2c 20 6f |a0,item |in a1, o|
|00001ab0| 66 66 73 65 74 20 69 6e | 20 64 30 00 80 82 2e 6c |ffset in| d0....l|
|00001ac0| 20 64 30 2d 64 35 2c 2d | 28 61 37 29 3a 80 7e 2e | d0-d5,-|(a7):.~.|
|00001ad0| 6c 20 64 30 2c 64 32 3a | 80 59 20 6c 6f 61 64 74 |l d0,d2:|.Y loadt|
|00001ae0| 68 65 70 61 6c 00 80 82 | 2e 6c 20 28 61 37 29 2b |hepal...|.l (a7)+|
|00001af0| 2c 64 30 2d 64 35 3a 80 | 94 00 00 2e 5f 63 6c 75 |,d0-d5:.|...._clu|
|00001b00| 64 67 65 70 61 6c 65 74 | 74 65 32 3a 00 20 20 80 |dgepalet|te2:. .|
|00001b10| 81 23 30 2c 64 32 00 00 | 2e 5f 63 6c 75 64 67 65 |.#0,d2..|._cludge|
|00001b20| 70 61 6c 65 74 74 65 3a | 00 20 20 80 7e 20 64 32 |palette:|. .~ d2|
|00001b30| 2c 6d 79 6f 66 66 3a 80 | 7e 2e 6c 20 64 31 2c 61 |,myoff:.|~.l d1,a|
|00001b40| 30 3a 80 82 2e 6c 20 28 | 61 30 29 2b 2c 64 30 2d |0:...l (|a0)+,d0-|
|00001b50| 64 31 3a 80 5c 2e 6c 23 | 22 46 4f 52 4d 22 2c 64 |d1:.\.l#|"FORM",d|
|00001b60| 30 3a 80 50 20 65 72 72 | 30 00 20 20 80 7a 20 30 |0:.P err|0. .z 0|
|00001b70| 28 61 30 2c 64 31 2e 6c | 29 2c 61 31 3a 80 5c 2e |(a0,d1.l|),a1:.\.|
|00001b80| 6c 20 23 22 49 4c 42 4d | 22 2c 28 61 30 29 2b 3a |l #"ILBM|",(a0)+:|
|00001b90| 80 50 20 65 72 72 30 00 | 63 76 3a 00 20 20 80 82 |.P err0.|cv:. ..|
|00001ba0| 2e 6c 28 61 30 29 2b 2c | 64 30 2d 64 31 3a 80 5c |.l(a0)+,|d0-d1:.\|
|00001bb0| 2e 6c 20 23 22 43 4d 41 | 50 22 2c 64 30 3a 80 48 |.l #"CMA|P",d0:.H|
|00001bc0| 20 66 63 00 20 20 80 3d | 2e 6c 20 64 31 2c 61 30 | fc. .=|.l d1,a0|
|00001bd0| 3a 80 5c 2e 6c 20 61 30 | 2c 61 31 3a 80 4c 20 65 |:.\.l a0|,a1:.L e|
|00001be0| 72 72 31 3a 80 58 20 63 | 76 00 66 63 3a 00 20 20 |rr1:.X c|v.fc:. |
|00001bf0| 80 72 23 33 2c 64 31 3a | 80 82 2e 6c 20 64 31 2f |.r#3,d1:|...l d1/|
|00001c00| 61 30 2d 61 31 2c 2d 28 | 61 37 29 3a 80 3d 20 6d |a0-a1,-(|a7):.= m|
|00001c10| 79 6f 66 66 28 70 63 29 | 2c 64 31 3a 80 59 20 5f |yoff(pc)|,d1:.Y _|
|00001c20| 69 6e 69 74 70 61 6c 65 | 74 74 65 00 20 20 80 82 |initpale|tte. ..|
|00001c30| 2e 6c 20 28 61 37 29 2b | 2c 64 31 2f 61 30 2d 61 |.l (a7)+|,d1/a0-a|
|00001c40| 31 3a 80 7e 2e 6c 20 28 | 61 33 29 2c 61 32 3a 80 |1:.~.l (|a3),a2:.|
|00001c50| 7e 20 6d 79 6f 66 66 28 | 70 63 29 2c 64 37 3a 80 |~ myoff(|pc),d7:.|
|00001c60| 84 20 23 31 32 2c 64 37 | 00 20 20 80 7a 20 34 28 |. #12,d7|. .z 4(|
|00001c70| 61 32 2c 64 37 29 2c 61 | 32 3a 80 aa 23 31 2c 64 |a2,d7),a|2:..#1,d|
|00001c80| 31 00 6e 78 63 3a 00 20 | 20 80 7e 2e 62 20 28 61 |1.nxc:. | .~.b (a|
|00001c90| 30 29 2b 2c 28 61 32 29 | 3a 80 7e 2e 62 20 28 61 |0)+,(a2)|:.~.b (a|
|00001ca0| 30 29 2b 2c 34 28 61 32 | 29 3a 80 7e 2e 62 20 28 |0)+,4(a2|):.~.b (|
|00001cb0| 61 30 29 2b 2c 38 28 61 | 32 29 3a 80 3d 23 31 32 |a0)+,8(a|2):.=#12|
|00001cc0| 2c 61 32 00 20 20 80 6f | 20 64 31 2c 6e 78 63 3a |,a2. .o| d1,nxc:|
|00001cd0| 80 40 23 36 2c 61 33 00 | 79 76 3a 00 20 20 80 82 |.@#6,a3.|yv:. ..|
|00001ce0| 2e 6c 28 61 30 29 2b 2c | 64 30 2d 64 31 3a 80 5c |.l(a0)+,|d0-d1:.\|
|00001cf0| 2e 6c 20 23 22 43 52 4e | 47 22 2c 64 30 3a 80 48 |.l #"CRN|G",d0:.H|
|00001d00| 20 79 63 00 20 20 80 3d | 2e 6c 20 64 31 2c 61 30 | yc. .=|.l d1,a0|
|00001d10| 3a 80 5c 2e 6c 20 61 30 | 2c 61 31 3a 80 4c 20 64 |:.\.l a0|,a1:.L d|
|00001d20| 75 6e 63 70 3a 80 58 20 | 79 76 20 20 3b 6c 6f 20 |uncp:.X |yv ;lo |
|00001d30| 68 69 20 73 70 65 65 64 | 20 76 61 72 00 79 63 3a |hi speed| var.yc:|
|00001d40| 00 20 20 80 82 20 32 28 | 61 30 29 2c 64 34 2d 64 |. .. 2(|a0),d4-d|
|00001d50| 35 3a 80 5c 23 31 2c 64 | 35 3a 80 48 20 27 73 6b |5:.\#1,d|5:.H 'sk|
|00001d60| 69 70 3a 80 86 20 64 34 | 3a 80 81 23 30 2c 64 35 |ip:.. d4|:..#0,d5|
|00001d70| 3a 27 73 6b 69 70 00 20 | 20 80 7e 2e 62 20 36 28 |:'skip. | .~.b 6(|
|00001d80| 61 30 29 2c 64 32 3a 80 | 7e 2e 62 20 37 28 61 30 |a0),d2:.|~.b 7(a0|
|00001d90| 29 2c 64 33 3a 80 76 2e | 77 20 64 32 3a 80 76 2e |),d3:.v.|w d2:.v.|
|00001da0| 77 20 64 33 3a 80 40 23 | 38 2c 61 30 00 20 20 80 |w d3:.@#|8,a0. .|
|00001db0| 5c 20 64 32 2c 64 33 3a | 80 48 20 79 76 3a 80 82 |\ d2,d3:|.H yv:..|
|00001dc0| 20 64 32 2d 64 35 2c 28 | 61 33 29 3a 80 40 23 38 | d2-d5,(|a3):.@#8|
|00001dd0| 2c 61 33 3a 80 58 20 79 | 76 00 64 75 6e 63 70 3a |,a3:.X y|v.duncp:|
|00001de0| 00 20 20 80 7e 23 2d 31 | 2c 28 61 33 29 3a 80 94 |. .~#-1|,(a3):..|
|00001df0| 00 00 6d 79 6f 66 66 3a | 80 25 20 30 00 00 2e 6c |..myoff:|.% 0...l|
|00001e00| 6f 61 64 74 68 65 70 61 | 6c 00 3b 70 61 6c 65 74 |oadthepa|l.;palet|
|00001e10| 74 65 20 6e 61 6d 65 20 | 69 6e 20 61 30 2c 20 70 |te name |in a0, p|
|00001e20| 61 6c 65 74 74 65 20 69 | 74 65 6d 20 69 6e 20 61 |alette i|tem in a|
|00001e30| 31 2c 20 70 61 6c 65 74 | 74 65 20 6f 66 66 73 65 |1, palet|te offse|
|00001e40| 74 20 69 6e 20 64 32 00 | 3b 00 80 38 20 23 69 66 |t in d2.|;..8 #if|
|00001e50| 66 69 6f 6c 69 62 20 80 | 7c 20 37 2b 31 3a 80 50 |fiolib .|| 7+1:.P|
|00001e60| 20 65 72 72 30 3a 3b 6f | 70 65 6e 20 49 46 46 00 | err0:;o|pen IFF.|
|00001e70| 80 7e 2e 6c 20 23 22 43 | 4d 41 50 22 2c 64 30 3a |.~.l #"C|MAP",d0:|
|00001e80| 80 38 20 23 69 66 66 69 | 6f 6c 69 62 20 80 7c 20 |.8 #iffi|olib .| |
|00001e90| 37 2b 36 3a 80 50 20 65 | 72 72 31 3a 3b 66 69 6e |7+6:.P e|rr1:;fin|
|00001ea0| 64 20 43 4d 41 50 00 80 | 7e 20 64 30 2c 64 35 3a |d CMAP..|~ d0,d5:|
|00001eb0| 80 76 2e 6c 20 64 35 3a | 80 72 20 23 33 2c 64 35 |.v.l d5:|.r #3,d5|
|00001ec0| 3a 80 aa 20 23 31 2c 64 | 35 3a 80 4f 20 27 6e 6f |:.. #1,d|5:.O 'no|
|00001ed0| 6e 65 3a 80 7e 2e 6c 20 | 61 31 2c 61 30 3a 80 7e |ne:.~.l |a1,a0:.~|
|00001ee0| 2e 6c 20 61 30 2c 2d 28 | 61 37 29 00 80 7e 20 64 |.l a0,-(|a7)..~ d|
|00001ef0| 32 2c 64 31 3a 80 3d 20 | 64 35 2c 64 31 3a 80 59 |2,d1:.= |d5,d1:.Y|
|00001f00| 20 64 6f 70 61 6c 72 67 | 62 3a 80 7e 20 64 32 2c | dopalrg|b:.~ d2,|
|00001f10| 64 31 00 3b 00 27 6c 6f | 6f 70 00 80 81 20 23 30 |d1.;.'lo|op... #0|
|00001f20| 2c 64 32 3a 80 38 20 23 | 69 66 66 69 6f 6c 69 62 |,d2:.8 #|iffiolib|
|00001f30| 20 80 7c 20 37 2b 33 3a | 80 7e 2e 62 20 64 30 2c | .| 7+3:|.~.b d0,|
|00001f40| 64 32 00 80 81 20 23 30 | 2c 64 33 3a 80 38 20 23 |d2... #0|,d3:.8 #|
|00001f50| 69 66 66 69 6f 6c 69 62 | 20 80 7c 20 37 2b 33 3a |iffiolib| .| 7+3:|
|00001f60| 80 7e 2e 62 20 64 30 2c | 64 33 00 80 81 20 23 30 |.~.b d0,|d3... #0|
|00001f70| 2c 64 34 3a 80 38 20 23 | 69 66 66 69 6f 6c 69 62 |,d4:.8 #|iffiolib|
|00001f80| 20 80 7c 20 37 2b 33 3a | 80 7e 2e 62 20 64 30 2c | .| 7+3:|.~.b d0,|
|00001f90| 64 34 00 3b 00 80 59 20 | 64 6f 70 61 6c 72 67 62 |d4.;..Y |dopalrgb|
|00001fa0| 00 3b 00 80 40 20 23 31 | 2c 64 31 3a 80 6e 20 64 |.;..@ #1|,d1:.n d|
|00001fb0| 35 2c 27 6c 6f 6f 70 3a | 80 7e 2e 6c 20 28 61 37 |5,'loop:|.~.l (a7|
|00001fc0| 29 2b 2c 61 31 3a 80 40 | 20 23 36 2c 61 31 00 3b |)+,a1:.@| #6,a1.;|
|00001fd0| 00 3b 6c 6f 61 64 20 63 | 79 63 6c 65 20 69 6e 66 |.;load c|ycle inf|
|00001fe0| 6f 2e 2e 2e 00 3b 00 27 | 63 6c 6f 6f 70 3a 80 7e |o....;.'|cloop:.~|
|00001ff0| 2e 6c 20 23 22 43 52 4e | 47 22 2c 64 30 3a 80 38 |.l #"CRN|G",d0:.8|
|00002000| 20 23 69 66 66 69 6f 6c | 69 62 20 80 7c 20 37 2b | #iffiol|ib .| 7+|
|00002010| 36 3a 80 50 20 27 64 6f | 6e 65 3a 3b 69 66 66 66 |6:.P 'do|ne:;ifff|
|00002020| 69 6e 64 00 80 38 20 23 | 69 66 66 69 6f 6c 69 62 |ind..8 #|iffiolib|
|00002030| 20 80 7c 20 37 2b 35 3a | 80 7e 20 64 30 2c 64 32 | .| 7+5:|.~ d0,d2|
|00002040| 00 80 38 20 23 69 66 66 | 69 6f 6c 69 62 20 80 7c |..8 #iff|iolib .||
|00002050| 20 37 2b 34 3a 80 5c 20 | 23 31 2c 64 30 3a 80 48 | 7+4:.\ |#1,d0:.H|
|00002060| 20 27 73 6b 69 70 32 3a | 80 86 20 64 32 00 27 73 | 'skip2:|.. d2.'s|
|00002070| 6b 69 70 32 3a 80 38 20 | 23 69 66 66 69 6f 6c 69 |kip2:.8 |#iffioli|
|00002080| 62 20 80 7c 20 37 2b 33 | 3a 80 76 20 64 30 3a 80 |b .| 7+3|:.v d0:.|
|00002090| 7e 20 64 30 2c 28 61 31 | 29 00 80 38 20 23 69 66 |~ d0,(a1|)..8 #if|
|000020a0| 66 69 6f 6c 69 62 20 80 | 7c 20 37 2b 33 3a 80 76 |fiolib .|| 7+3:.v|
|000020b0| 20 64 30 3a 80 5c 20 28 | 61 31 29 2c 64 30 3a 80 | d0:.\ (|a1),d0:.|
|000020c0| 48 20 27 63 6c 6f 6f 70 | 00 80 40 20 23 32 2c 61 |H 'cloop|..@ #2,a|
|000020d0| 31 3a 80 7e 20 64 30 2c | 28 61 31 29 2b 3a 80 7e |1:.~ d0,|(a1)+:.~|
|000020e0| 20 64 32 2c 28 61 31 29 | 2b 3a 80 5b 20 28 61 31 | d2,(a1)|+:.[ (a1|
|000020f0| 29 2b 3a 80 58 20 27 63 | 6c 6f 6f 70 00 27 64 6f |)+:.X 'c|loop.'do|
|00002100| 6e 65 3a 80 7e 20 23 2d | 31 2c 28 61 31 29 00 3b |ne:.~ #-|1,(a1).;|
|00002110| 00 27 6e 6f 6e 65 3a 80 | 38 20 23 69 66 66 69 6f |.'none:.|8 #iffio|
|00002120| 6c 69 62 20 80 7c 20 37 | 2b 32 3a 80 94 00 00 2e |lib .| 7|+2:.....|
|00002130| 64 6f 73 65 74 63 79 63 | 6c 65 31 3a 80 7e 2e 6c |dosetcyc|le1:.~.l|
|00002140| 20 23 24 31 30 30 30 30 | 2c 64 34 00 3b 00 2e 64 | #$10000|,d4.;..d|
|00002150| 6f 73 65 74 63 79 63 6c | 65 32 00 3b 00 3b 66 69 |osetcycl|e2.;.;fi|
|00002160| 6e 64 20 6c 61 73 74 20 | 63 79 63 6c 65 00 3b 00 |nd last |cycle.;.|
|00002170| 80 7a 20 34 28 61 30 29 | 2c 61 31 3a 80 7e 20 28 |.z 4(a0)|,a1:.~ (|
|00002180| 61 31 29 2b 2c 64 35 3a | 80 48 20 27 6b 6e 6f 62 |a1)+,d5:|.H 'knob|
|00002190| 00 3b 00 27 6c 6f 6f 70 | 3a 80 b0 20 28 61 31 29 |.;.'loop|:.. (a1)|
|000021a0| 3a 80 4f 20 27 6b 6e 6f | 62 3a 80 40 20 23 38 2c |:.O 'kno|b:.@ #8,|
|000021b0| 61 31 3a 80 58 20 27 6c | 6f 6f 70 00 27 6b 6e 6f |a1:.X 'l|oop.'kno|
|000021c0| 62 00 3b 00 80 7c 20 23 | 33 2c 64 31 3a 80 7a 20 |b.;..| #|3,d1:.z |
|000021d0| 36 28 61 30 2c 64 31 29 | 2c 61 32 00 3b 00 80 81 |6(a0,d1)|,a2.;...|
|000021e0| 20 23 30 2c 64 35 3a 80 | 5c 2e 6c 20 61 31 2c 61 | #0,d5:.|\.l a1,a|
|000021f0| 32 3a 80 47 20 27 6b 6e | 6f 62 32 3a 80 50 20 65 |2:.G 'kn|ob2:.P e|
|00002200| 72 72 64 3a 80 81 20 23 | 2d 31 2c 64 35 00 27 6b |rrd:.. #|-1,d5.'k|
|00002210| 6e 6f 62 32 00 3b 00 80 | 5c 20 64 32 2c 64 33 3a |nob2.;..|\ d2,d3:|
|00002220| 80 46 20 27 73 6b 69 70 | 3a 80 75 20 64 32 2c 64 |.F 'skip|:.u d2,d|
|00002230| 33 00 3b 00 27 73 6b 69 | 70 3a 80 7e 20 64 32 2c |3.;.'ski|p:.~ d2,|
|00002240| 28 61 32 29 2b 3a 80 7e | 20 64 33 2c 28 61 32 29 |(a2)+:.~| d3,(a2)|
|00002250| 2b 00 80 45 2e 6c 20 23 | 32 2c 64 34 3a 80 7e 20 |+..E.l #|2,d4:.~ |
|00002260| 64 34 2c 28 61 32 29 2b | 3a 80 5b 20 28 61 32 29 |d4,(a2)+|:.[ (a2)|
|00002270| 2b 00 3b 00 80 b0 20 64 | 35 3a 80 51 20 27 73 6b |+.;... d|5:.Q 'sk|
|00002280| 69 70 32 3a 80 7e 20 64 | 35 2c 28 61 32 29 00 3b |ip2:.~ d|5,(a2).;|
|00002290| 00 27 73 6b 69 70 32 3a | 80 94 00 00 2e 66 72 65 |.'skip2:|.....fre|
|000022a0| 65 70 61 6c 00 80 7e 20 | 34 28 61 33 29 2c 64 30 |epal..~ |4(a3),d0|
|000022b0| 3a 80 48 20 27 64 6f 6e | 65 3a 80 5b 20 34 28 61 |:.H 'don|e:.[ 4(a|
|000022c0| 33 29 3a 80 7e 2e 6c 20 | 28 61 33 29 2c 61 31 3a |3):.~.l |(a3),a1:|
|000022d0| 80 5b 2e 6c 20 28 61 33 | 29 00 80 7e 20 23 2d 31 |.[.l (a3|)..~ #-1|
|000022e0| 2c 36 28 61 33 29 3a 80 | 84 20 23 31 32 2c 64 30 |,6(a3):.|. #12,d0|
|000022f0| 3a 80 40 2e 6c 20 23 38 | 2c 64 30 3a 80 38 20 24 |:.@.l #8|,d0:.8 $|
|00002300| 63 30 30 33 00 27 64 6f | 6e 65 3a 80 94 00 00 2e |c003.'do|ne:.....|
|00002310| 6e 65 77 70 61 6c 6d 6f | 64 65 00 3b 00 80 7e 20 |newpalmo|de.;..~ |
|00002320| 64 30 2c 70 61 6c 6d 6f | 64 65 3a 80 94 00 3b 00 |d0,palmo|de:...;.|
|00002330| 70 61 6c 6d 6f 64 65 3a | 80 25 20 30 00 00 2e 75 |palmode:|.% 0...u|
|00002340| 73 65 70 61 6c 00 3b 00 | 80 25 20 24 61 30 30 31 |sepal.;.|.% $a001|
|00002350| 3a 80 25 2e 6c 20 62 5f | 75 73 65 70 61 6c 00 3b |:.%.l b_|usepal.;|
|00002360| 00 80 b0 20 70 61 6c 6d | 6f 64 65 3a 80 48 20 64 |... palm|ode:.H d|
|00002370| 6f 69 74 31 3a 80 94 00 | 3b 00 62 5f 75 73 65 70 |oit1:...|;.b_usep|
|00002380| 61 6c 00 3a 00 80 b0 20 | 70 61 6c 6d 6f 64 65 3a |al.:... |palmode:|
|00002390| 80 48 20 64 6f 69 74 32 | 3a 80 94 00 00 2e 73 68 |.H doit2|:.....sh|
|000023a0| 6f 77 70 61 6c 3a 3b 61 | 33 3d 50 61 6c 65 74 74 |owpal:;a|3=Palett|
|000023b0| 65 20 23 2c 20 61 32 3d | 55 73 65 64 20 53 63 72 |e #, a2=|Used Scr|
|000023c0| 65 65 6e 2c 20 61 36 3d | 67 72 2e 6c 69 62 00 3b |een, a6=|gr.lib.;|
|000023d0| 00 80 25 20 24 61 30 30 | 31 3a 80 25 2e 6c 20 62 |..% $a00|1:.%.l b|
|000023e0| 5f 73 68 6f 77 70 61 6c | 00 3b 00 64 6f 69 74 31 |_showpal|.;.doit1|
|000023f0| 3a 80 b0 20 61 67 61 6d | 6f 64 65 3a 80 48 20 27 |:.. agam|ode:.H '|
|00002400| 64 6f 34 62 69 74 00 3b | 00 80 7e 20 34 28 61 33 |do4bit.;|..~ 4(a3|
|00002410| 29 2c 64 34 3a 80 48 20 | 27 73 6b 69 70 3a 80 7e |),d4:.H |'skip:.~|
|00002420| 2e 6c 20 28 61 32 29 2c | 61 30 3a 80 7a 20 34 34 |.l (a2),|a0:.z 44|
|00002430| 28 61 30 29 2c 61 30 00 | 80 7e 2e 6c 20 28 61 33 |(a0),a0.|.~.l (a3|
|00002440| 29 2c 61 31 3a 80 78 20 | 2d 24 33 37 32 28 61 36 |),a1:.x |-$372(a6|
|00002450| 29 00 3b 00 27 64 6f 34 | 62 69 74 00 3b 00 80 7e |).;.'do4|bit.;..~|
|00002460| 2e 6c 20 61 33 2c 61 30 | 3a 80 59 20 6d 61 6b 65 |.l a3,a0|:.Y make|
|00002470| 34 62 69 74 72 67 62 73 | 3a 80 b0 20 64 30 3a 80 |4bitrgbs|:.. d0:.|
|00002480| 48 20 27 73 6b 69 70 00 | 80 7e 2e 6c 20 28 61 32 |H 'skip.|.~.l (a2|
|00002490| 29 2c 61 30 3a 80 7a 20 | 34 34 28 61 30 29 2c 61 |),a0:.z |44(a0),a|
|000024a0| 30 3a 80 78 20 5f 4c 6f | 61 64 52 47 42 34 28 61 |0:.x _Lo|adRGB4(a|
|000024b0| 36 29 00 3b 00 27 73 6b | 69 70 00 00 62 5f 73 68 |6).;.'sk|ip..b_sh|
|000024c0| 6f 77 70 61 6c 00 3b 00 | 64 6f 69 74 32 3a 80 7e |owpal.;.|doit2:.~|
|000024d0| 2e 6c 20 31 38 28 61 30 | 29 2c 61 31 3a 3b 63 6f |.l 18(a0|),a1:;co|
|000024e0| 6c 6f 75 72 20 70 6f 6b | 65 73 00 80 7e 20 38 28 |lour pok|es..~ 8(|
|000024f0| 61 30 29 2c 64 32 3a 80 | 5c 20 34 28 61 33 29 2c |a0),d2:.|\ 4(a3),|
|00002500| 64 32 3a 80 4d 20 27 73 | 6b 69 70 3a 80 7e 20 34 |d2:.M 's|kip:.~ 4|
|00002510| 28 61 33 29 2c 64 32 00 | 27 73 6b 69 70 3a 80 aa |(a3),d2.|'skip:..|
|00002520| 20 23 31 2c 64 32 3a 80 | 4f 20 27 73 6b 69 70 32 | #1,d2:.|O 'skip2|
|00002530| 3a 80 40 20 23 32 2c 61 | 31 3a 80 7e 2e 6c 20 28 |:.@ #2,a|1:.~.l (|
|00002540| 61 33 29 2c 61 33 3a 80 | 40 20 23 34 2c 61 33 00 |a3),a3:.|@ #4,a3.|
|00002550| 27 6c 6f 6f 70 00 3b 00 | 80 81 20 23 30 2c 64 30 |'loop.;.|.. #0,d0|
|00002560| 00 80 7e 2e 6c 20 28 61 | 33 29 2b 2c 64 30 3a 80 |..~.l (a|3)+,d0:.|
|00002570| 8e 2e 6c 20 23 38 2c 64 | 30 3a 80 7c 20 23 34 2c |..l #8,d|0:.| #4,|
|00002580| 64 30 00 80 7e 2e 6c 20 | 28 61 33 29 2b 2c 64 31 |d0..~.l |(a3)+,d1|
|00002590| 3a 80 8e 2e 6c 20 23 38 | 2c 64 31 3a 80 7e 2e 62 |:...l #8|,d1:.~.b|
|000025a0| 20 64 31 2c 64 30 3a 80 | 42 20 23 24 66 66 30 2c | d1,d0:.|B #$ff0,|
|000025b0| 64 30 00 80 7e 2e 6c 20 | 28 61 33 29 2b 2c 64 31 |d0..~.l |(a3)+,d1|
|000025c0| 3a 80 8e 2e 6c 20 23 34 | 2c 64 31 3a 80 42 20 23 |:...l #4|,d1:.B #|
|000025d0| 31 35 2c 64 31 3a 80 8a | 20 64 31 2c 64 30 00 3b |15,d1:..| d1,d0.;|
|000025e0| 00 80 7e 20 64 30 2c 28 | 61 31 29 3a 80 40 20 23 |..~ d0,(|a1):.@ #|
|000025f0| 34 2c 61 31 3a 80 6e 20 | 64 32 2c 27 6c 6f 6f 70 |4,a1:.n |d2,'loop|
|00002600| 3a 80 94 00 27 73 6b 69 | 70 32 3a 80 94 00 00 2e |:...'ski|p2:.....|
|00002610| 64 6f 63 79 63 6c 65 3a | 3b 61 33 3d 50 61 6c 65 |docycle:|;a3=Pale|
|00002620| 74 74 65 20 69 74 65 6d | 2c 20 61 32 3d 55 73 65 |tte item|, a2=Use|
|00002630| 64 20 53 63 72 65 65 6e | 00 3b 00 80 81 20 23 31 |d Screen|.;... #1|
|00002640| 32 2c 64 30 3a 80 81 20 | 23 31 2c 64 31 3a 80 38 |2,d0:.. |#1,d1:.8|
|00002650| 20 24 63 30 30 32 3a 80 | 7e 2e 6c 20 64 30 2c 61 | $c002:.|~.l d0,a|
|00002660| 30 00 3b 00 80 7e 2e 6c | 20 61 33 2c 34 28 61 30 |0.;..~.l| a3,4(a0|
|00002670| 29 00 80 7e 2e 6c 20 28 | 61 32 29 2c 61 32 3a 80 |)..~.l (|a2),a2:.|
|00002680| 7a 20 34 34 28 61 32 29 | 2c 61 32 3a 80 7e 2e 6c |z 44(a2)|,a2:.~.l|
|00002690| 20 61 32 2c 38 28 61 30 | 29 00 80 7e 2e 6c 20 63 | a2,8(a0|)..~.l c|
|000026a0| 79 63 6c 65 6c 69 73 74 | 28 70 63 29 2c 28 61 30 |yclelist|(pc),(a0|
|000026b0| 29 3a 80 7e 2e 6c 20 61 | 30 2c 63 79 63 6c 65 6c |):.~.l a|0,cyclel|
|000026c0| 69 73 74 00 80 7e 20 63 | 79 63 6f 6e 28 70 63 29 |ist..~ c|ycon(pc)|
|000026d0| 2c 64 30 3a 80 50 20 27 | 64 6f 6e 65 3a 80 89 20 |,d0:.P '|done:.. |
|000026e0| 63 79 63 6f 6e 00 80 7e | 20 23 24 38 30 30 35 2c |cycon..~| #$8005,|
|000026f0| 64 30 3a 80 7e 2e 6c 20 | 23 63 79 63 6c 65 65 6d |d0:.~.l |#cycleem|
|00002700| 2c 64 31 00 80 38 20 24 | 63 31 30 30 3a 3b 73 65 |,d1..8 $|c100:;se|
|00002710| 74 20 69 6e 74 2c 20 64 | 31 3d 63 6f 64 65 2c 20 |t int, d|1=code, |
|00002720| 64 30 3d 6c 65 76 65 6c | 00 27 64 6f 6e 65 3a 80 |d0=level|.'done:.|
|00002730| 94 00 00 2e 64 6f 73 74 | 6f 70 63 79 63 6c 65 00 |....dost|opcycle.|
|00002740| 3b 00 80 7e 20 23 24 38 | 30 30 35 2c 64 30 3a 80 |;..~ #$8|005,d0:.|
|00002750| 38 20 24 63 31 30 31 3a | 80 94 00 00 2e 64 6f 61 |8 $c101:|.....doa|
|00002760| 67 61 72 65 64 3a 80 81 | 20 23 30 2c 64 37 00 3b |gared:..| #0,d7.;|
|00002770| 00 64 6f 61 67 61 63 6f | 6c 3a 80 7e 2e 6c 20 28 |.doagaco|l:.~.l (|
|00002780| 61 30 29 2c 61 30 3a 80 | 7a 20 34 34 28 61 30 29 |a0),a0:.|z 44(a0)|
|00002790| 2c 61 30 3a 80 7e 2e 6c | 20 34 28 61 30 29 2c 61 |,a0:.~.l| 4(a0),a|
|000027a0| 30 00 80 81 20 23 31 2c | 64 31 3a 80 7a 20 61 67 |0... #1,|d1:.z ag|
|000027b0| 61 74 61 62 6c 65 28 70 | 63 29 2c 61 31 3a 80 79 |atable(p|c),a1:.y|
|000027c0| 20 2d 24 33 38 34 28 61 | 36 29 20 3b 67 65 74 72 | -$384(a|6) ;getr|
|000027d0| 67 62 33 32 5f 00 80 7e | 2e 6c 20 61 67 61 74 61 |gb32_..~|.l agata|
|000027e0| 62 6c 65 28 70 63 2c 64 | 37 29 2c 64 30 3a 80 8e |ble(pc,d|7),d0:..|
|000027f0| 2e 6c 20 23 38 2c 64 30 | 3a 80 42 20 23 32 35 35 |.l #8,d0|:.B #255|
|00002800| 2c 64 30 3a 80 94 00 3b | 00 61 67 61 74 61 62 6c |,d0:...;|.agatabl|
|00002810| 65 3a 80 26 2e 6c 20 33 | 00 00 2e 64 6f 61 67 61 |e:.&.l 3|...doaga|
|00002820| 67 72 65 65 6e 3a 80 81 | 20 23 34 2c 64 37 3a 80 |green:..| #4,d7:.|
|00002830| 58 20 64 6f 61 67 61 63 | 6f 6c 00 00 2e 64 6f 61 |X doagac|ol...doa|
|00002840| 67 61 62 6c 75 65 3a 80 | 81 20 23 38 2c 64 37 3a |gablue:.|. #8,d7:|
|00002850| 80 58 20 64 6f 61 67 61 | 63 6f 6c 00 00 2e 64 6f |.X doaga|col...do|
|00002860| 72 65 64 3a 80 25 20 24 | 61 30 30 31 3a 80 25 2e |red:.% $|a001:.%.|
|00002870| 6c 20 62 5f 64 6f 72 65 | 64 00 80 81 20 23 38 2c |l b_dore|d... #8,|
|00002880| 64 37 00 3b 00 61 5f 64 | 6f 67 63 6f 6c 3a 80 7e |d7.;.a_d|ogcol:.~|
|00002890| 2e 6c 20 28 61 30 29 2c | 61 30 3a 80 7a 20 34 34 |.l (a0),|a0:.z 44|
|000028a0| 28 61 30 29 2c 61 30 3a | 80 7e 2e 6c 20 34 28 61 |(a0),a0:|.~.l 4(a|
|000028b0| 30 29 2c 61 30 00 80 79 | 20 5f 47 65 74 52 47 42 |0),a0..y| _GetRGB|
|000028c0| 34 28 61 36 29 3a 80 7d | 20 64 37 2c 64 30 3a 80 |4(a6):.}| d7,d0:.|
|000028d0| 42 20 23 31 35 2c 64 30 | 3a 80 94 00 00 62 5f 64 |B #15,d0|:....b_d|
|000028e0| 6f 72 65 64 3a 3b 62 6c | 69 74 7a 20 66 6f 72 6d |ored:;bl|itz form|
|000028f0| 20 6f 66 20 72 65 64 00 | 80 81 20 23 38 2c 64 37 | of red.|.. #8,d7|
|00002900| 00 3b 00 62 5f 64 6f 67 | 63 6f 6c 3a 80 7e 2e 6c |.;.b_dog|col:.~.l|
|00002910| 20 31 38 28 61 30 29 2c | 61 30 3a 80 7c 20 23 32 | 18(a0),|a0:.| #2|
|00002920| 2c 64 30 3a 80 7e 20 32 | 28 61 30 2c 64 30 29 2c |,d0:.~ 2|(a0,d0),|
|00002930| 64 30 00 80 7d 20 64 37 | 2c 64 30 3a 80 42 20 23 |d0..} d7|,d0:.B #|
|00002940| 31 35 2c 64 30 3a 80 94 | 00 00 2e 64 6f 67 72 65 |15,d0:..|...dogre|
|00002950| 65 6e 3a 80 25 20 24 61 | 30 30 31 3a 80 25 2e 6c |en:.% $a|001:.%.l|
|00002960| 20 62 5f 64 6f 67 72 65 | 65 6e 00 80 81 20 23 34 | b_dogre|en... #4|
|00002970| 2c 64 37 3a 80 58 20 61 | 5f 64 6f 67 63 6f 6c 00 |,d7:.X a|_dogcol.|
|00002980| 62 5f 64 6f 67 72 65 65 | 6e 3a 80 81 20 23 34 2c |b_dogree|n:.. #4,|
|00002990| 64 37 3a 80 58 20 62 5f | 64 6f 67 63 6f 6c 00 00 |d7:.X b_|dogcol..|
|000029a0| 2e 64 6f 62 6c 75 65 3a | 80 25 20 24 61 30 30 31 |.doblue:|.% $a001|
|000029b0| 3a 80 25 2e 6c 20 62 5f | 64 6f 62 6c 75 65 00 80 |:.%.l b_|doblue..|
|000029c0| 81 20 23 30 2c 64 37 3a | 80 58 20 61 5f 64 6f 67 |. #0,d7:|.X a_dog|
|000029d0| 63 6f 6c 00 62 5f 64 6f | 62 6c 75 65 3a 80 81 20 |col.b_do|blue:.. |
|000029e0| 23 30 2c 64 37 3a 80 58 | 20 62 5f 64 6f 67 63 6f |#0,d7:.X| b_dogco|
|000029f0| 6c 00 00 2e 64 6f 61 61 | 72 67 62 20 20 3b 64 30 |l...doaa|rgb ;d0|
|00002a00| 3d 72 65 67 2c 20 64 31 | 3d 72 65 64 2c 20 64 32 |=reg, d1|=red, d2|
|00002a10| 3d 67 72 65 65 6e 2c 20 | 64 33 3d 62 6c 75 65 2c |=green, |d3=blue,|
|00002a20| 20 61 36 3d 67 72 61 70 | 68 69 63 73 2c 20 61 30 | a6=grap|hics, a0|
|00002a30| 3d 73 63 72 65 65 6e 00 | 3b 00 80 7e 20 64 31 2c |=screen.|;..~ d1,|
|00002a40| 64 34 3a 80 7c 20 23 38 | 2c 64 31 3a 80 7e 2e 62 |d4:.| #8|,d1:.~.b|
|00002a50| 20 64 34 2c 64 31 3a 80 | 7e 20 64 31 2c 64 34 3a | d4,d1:.|~ d1,d4:|
|00002a60| 80 ac 20 64 31 3a 80 7e | 20 64 34 2c 64 31 00 80 |.. d1:.~| d4,d1..|
|00002a70| 7e 20 64 32 2c 64 34 3a | 80 7c 20 23 38 2c 64 32 |~ d2,d4:|.| #8,d2|
|00002a80| 3a 80 7e 2e 62 20 64 34 | 2c 64 32 3a 80 7e 20 64 |:.~.b d4|,d2:.~ d|
|00002a90| 32 2c 64 34 3a 80 ac 20 | 64 32 3a 80 7e 20 64 34 |2,d4:.. |d2:.~ d4|
|00002aa0| 2c 64 32 00 80 7e 20 64 | 33 2c 64 34 3a 80 7c 20 |,d2..~ d|3,d4:.| |
|00002ab0| 23 38 2c 64 33 3a 80 7e | 2e 62 20 64 34 2c 64 33 |#8,d3:.~|.b d4,d3|
|00002ac0| 3a 80 7e 20 64 33 2c 64 | 34 3a 80 ac 20 64 33 3a |:.~ d3,d|4:.. d3:|
|00002ad0| 80 7e 20 64 34 2c 64 33 | 00 3b 45 58 54 2e 6c 20 |.~ d4,d3|.;EXT.l |
|00002ae0| 64 30 3a 4d 4f 56 45 2e | 6c 20 28 61 30 29 2c 61 |d0:MOVE.|l (a0),a|
|00002af0| 30 3a 4c 45 41 20 34 34 | 28 61 30 29 2c 61 30 3a |0:LEA 44|(a0),a0:|
|00002b00| 4a 4d 50 20 2d 24 33 35 | 34 28 61 36 29 00 80 7a |JMP -$35|4(a6)..z|
|00002b10| 20 74 61 62 6c 65 28 70 | 63 29 2c 61 31 3a 80 7e | table(p|c),a1:.~|
|00002b20| 2e 62 20 64 30 2c 33 28 | 61 31 29 3a 80 82 2e 6c |.b d0,3(|a1):...l|
|00002b30| 20 64 31 2d 64 33 2c 34 | 28 61 31 29 00 80 7e 2e | d1-d3,4|(a1)..~.|
|00002b40| 6c 20 28 61 30 29 2c 61 | 30 3a 80 7a 20 34 34 28 |l (a0),a|0:.z 44(|
|00002b50| 61 30 29 2c 61 30 3a 80 | 78 20 2d 24 33 37 32 28 |a0),a0:.|x -$372(|
|00002b60| 61 36 29 00 00 74 61 62 | 6c 65 3a 80 25 2e 6c 20 |a6)..tab|le:.%.l |
|00002b70| 24 31 30 30 30 30 2c 30 | 2c 30 2c 30 2c 30 00 00 |$10000,0|,0,0,0..|
|00002b80| 2e 64 6f 72 67 62 3a 3b | 64 30 3d 72 65 67 2c 20 |.dorgb:;|d0=reg, |
|00002b90| 64 31 3d 72 65 64 2c 20 | 64 32 3d 67 72 65 65 6e |d1=red, |d2=green|
|00002ba0| 2c 20 64 33 3d 62 6c 75 | 65 00 3b 00 80 25 20 24 |, d3=blu|e.;..% $|
|00002bb0| 61 30 30 31 3a 80 25 2e | 6c 20 62 5f 64 6f 72 67 |a001:.%.|l b_dorg|
|00002bc0| 62 00 80 7e 2e 6c 20 28 | 61 30 29 2c 61 30 3a 80 |b..~.l (|a0),a0:.|
|00002bd0| 7a 20 34 34 28 61 30 29 | 2c 61 30 00 80 78 20 5f |z 44(a0)|,a0..x _|
|00002be0| 53 65 74 52 47 42 34 28 | 61 36 29 00 00 62 5f 64 |SetRGB4(|a6)..b_d|
|00002bf0| 6f 72 67 62 3a 3b 62 6c | 69 74 7a 20 66 6f 72 6d |orgb:;bl|itz form|
|00002c00| 20 6f 66 20 52 47 42 20 | 63 6f 6d 6d 61 6e 64 00 | of RGB |command.|
|00002c10| 3b 00 80 7e 2e 6c 20 31 | 38 28 61 30 29 2c 61 30 |;..~.l 1|8(a0),a0|
|00002c20| 3a 80 7c 20 23 32 2c 64 | 30 00 80 7c 20 23 38 2c |:.| #2,d|0..| #8,|
|00002c30| 64 31 3a 80 7c 20 23 34 | 2c 64 32 3a 80 8a 20 64 |d1:.| #4|,d2:.. d|
|00002c40| 32 2c 64 31 3a 80 8a 20 | 64 33 2c 64 31 00 80 7e |2,d1:.. |d3,d1..~|
|00002c50| 20 64 31 2c 32 28 61 30 | 2c 64 30 29 3a 80 94 00 | d1,2(a0|,d0):...|
|00002c60| 00 2e 63 79 63 6c 65 65 | 6d 3a 20 3b 63 6f 64 65 |..cyclee|m: ;code|
|00002c70| 20 74 6f 20 67 65 74 20 | 65 78 65 63 75 74 65 64 | to get |executed|
|00002c80| 20 6f 6e 20 76 62 6c 61 | 6e 6b 20 69 6e 74 65 72 | on vbla|nk inter|
|00002c90| 75 70 74 20 66 6f 72 00 | 20 20 20 20 20 20 20 20 |upt for.| |
|00002ca0| 20 20 3b 73 6f 6d 65 20 | 70 72 65 74 74 79 20 63 | ;some |pretty c|
|00002cb0| 6f 6c 6f 75 72 20 63 79 | 63 6c 69 6e 67 00 20 20 |olour cy|cling. |
|00002cc0| 20 20 20 20 20 20 20 20 | 3b 50 43 20 72 65 6c 61 | |;PC rela|
|00002cd0| 74 69 76 65 20 66 6f 72 | 20 65 61 73 79 20 64 75 |tive for| easy du|
|00002ce0| 70 6c 69 63 61 74 69 6f | 6e 00 00 80 82 2e 6c 20 |plicatio|n.....l |
|00002cf0| 64 32 2d 64 34 2f 61 32 | 2d 61 33 2c 2d 28 61 37 |d2-d4/a2|-a3,-(a7|
|00002d00| 29 3a 80 7e 2e 6c 20 67 | 66 78 62 61 73 65 28 70 |):.~.l g|fxbase(p|
|00002d10| 63 29 2c 61 36 00 80 7a | 20 63 79 63 6c 65 6c 69 |c),a6..z| cycleli|
|00002d20| 73 74 28 70 63 29 2c 61 | 32 00 00 27 62 69 67 6c |st(pc),a|2..'bigl|
|00002d30| 6f 6f 70 00 80 7e 2e 6c | 20 28 61 32 29 2c 64 30 |oop..~.l| (a2),d0|
|00002d40| 3a 80 48 20 27 61 6c 6c | 64 6f 6e 65 3a 80 7e 2e |:.H 'all|done:.~.|
|00002d50| 6c 20 64 30 2c 61 32 00 | 80 7e 2e 6c 20 34 28 61 |l d0,a2.|.~.l 4(a|
|00002d60| 32 29 2c 61 31 3a 80 7a | 20 34 28 61 31 29 2c 61 |2),a1:.z| 4(a1),a|
|00002d70| 30 3a 80 81 20 23 30 2c | 64 34 00 3b 00 27 63 6c |0:.. #0,|d4.;.'cl|
|00002d80| 6f 6f 70 3a 80 40 20 23 | 32 2c 61 30 3a 80 7e 20 |oop:.@ #|2,a0:.~ |
|00002d90| 28 61 30 29 2b 2c 64 30 | 3a 80 4f 20 27 64 6f 6e |(a0)+,d0|:.O 'don|
|00002da0| 65 3a 80 7e 20 28 61 30 | 29 2b 2c 64 31 00 80 81 |e:.~ (a0|)+,d1...|
|00002db0| 20 23 30 2c 64 33 3a 80 | 7e 20 28 61 30 29 2b 2c | #0,d3:.|~ (a0)+,|
|00002dc0| 64 32 3a 80 51 20 27 73 | 6b 69 70 3a 80 86 20 64 |d2:.Q 's|kip:.. d|
|00002dd0| 32 3a 80 81 20 23 2d 31 | 2c 64 33 00 27 73 6b 69 |2:.. #-1|,d3.'ski|
|00002de0| 70 3a 80 3d 20 28 61 30 | 29 2c 64 32 3a 80 7e 20 |p:.= (a0|),d2:.~ |
|00002df0| 64 32 2c 28 61 30 29 3a | 80 5c 20 23 31 36 33 38 |d2,(a0):|.\ #1638|
|00002e00| 34 2c 64 32 00 80 47 20 | 27 63 6c 6f 6f 70 3a 80 |4,d2..G |'cloop:.|
|00002e10| a7 20 23 31 36 33 38 34 | 2c 64 32 3a 80 7e 20 64 |. #16384|,d2:.~ d|
|00002e20| 32 2c 28 61 30 29 3a 80 | 81 20 23 2d 31 2c 64 34 |2,(a0):.|. #-1,d4|
|00002e30| 00 80 84 20 23 31 32 2c | 64 30 3a 80 84 20 23 31 |... #12,|d0:.. #1|
|00002e40| 32 2c 64 31 3a 80 7e 2e | 6c 20 28 61 31 29 2c 61 |2,d1:.~.|l (a1),a|
|00002e50| 33 3a 80 40 20 23 34 2c | 61 33 3a 80 b0 20 64 33 |3:.@ #4,|a3:.. d3|
|00002e60| 3a 80 48 20 27 64 6f 77 | 6e 00 3b 00 3b 48 65 72 |:.H 'dow|n.;.;Her|
|00002e70| 65 2c 20 74 68 65 20 70 | 61 6c 65 74 74 65 20 69 |e, the p|alette i|
|00002e80| 73 20 73 63 72 6f 6c 6c | 69 6e 67 20 55 50 57 41 |s scroll|ing UPWA|
|00002e90| 52 44 53 21 00 3b 00 80 | 7e 2e 6c 20 30 28 61 33 |RDS!.;..|~.l 0(a3|
|00002ea0| 2c 64 30 29 2c 2d 28 61 | 37 29 00 80 7e 2e 6c 20 |,d0),-(a|7)..~.l |
|00002eb0| 34 28 61 33 2c 64 30 29 | 2c 2d 28 61 37 29 00 80 |4(a3,d0)|,-(a7)..|
|00002ec0| 7e 2e 6c 20 38 28 61 33 | 2c 64 30 29 2c 2d 28 61 |~.l 8(a3|,d0),-(a|
|00002ed0| 37 29 00 27 75 6c 6f 6f | 70 00 80 5c 20 64 31 2c |7).'uloo|p..\ d1,|
|00002ee0| 64 30 3a 80 46 20 27 75 | 64 6f 6e 65 00 80 7e 2e |d0:.F 'u|done..~.|
|00002ef0| 6c 20 31 32 28 61 33 2c | 64 30 29 2c 30 28 61 33 |l 12(a3,|d0),0(a3|
|00002f00| 2c 64 30 29 00 80 7e 2e | 6c 20 31 36 28 61 33 2c |,d0)..~.|l 16(a3,|
|00002f10| 64 30 29 2c 34 28 61 33 | 2c 64 30 29 00 80 7e 2e |d0),4(a3|,d0)..~.|
|00002f20| 6c 20 32 30 28 61 33 2c | 64 30 29 2c 38 28 61 33 |l 20(a3,|d0),8(a3|
|00002f30| 2c 64 30 29 00 80 3d 20 | 23 31 32 2c 64 30 3a 80 |,d0)..= |#12,d0:.|
|00002f40| 58 20 27 75 6c 6f 6f 70 | 00 27 75 64 6f 6e 65 00 |X 'uloop|.'udone.|
|00002f50| 80 7e 2e 6c 20 28 61 37 | 29 2b 2c 38 28 61 33 2c |.~.l (a7|)+,8(a3,|
|00002f60| 64 30 29 00 80 7e 2e 6c | 20 28 61 37 29 2b 2c 34 |d0)..~.l| (a7)+,4|
|00002f70| 28 61 33 2c 64 30 29 00 | 80 7e 2e 6c 20 28 61 37 |(a3,d0).|.~.l (a7|
|00002f80| 29 2b 2c 30 28 61 33 2c | 64 30 29 00 80 58 20 27 |)+,0(a3,|d0)..X '|
|00002f90| 63 6c 6f 6f 70 00 3b 00 | 3b 48 65 72 65 2c 20 74 |cloop.;.|;Here, t|
|00002fa0| 68 65 20 70 61 6c 65 74 | 74 65 20 69 73 20 73 63 |he palet|te is sc|
|00002fb0| 72 6f 6c 6c 69 6e 67 20 | 44 4f 57 4e 57 41 52 44 |rolling |DOWNWARD|
|00002fc0| 53 21 00 3b 00 27 64 6f | 77 6e 3a 00 80 7e 2e 6c |S!.;.'do|wn:..~.l|
|00002fd0| 20 30 28 61 33 2c 64 31 | 29 2c 2d 28 61 37 29 00 | 0(a3,d1|),-(a7).|
|00002fe0| 80 7e 2e 6c 20 34 28 61 | 33 2c 64 31 29 2c 2d 28 |.~.l 4(a|3,d1),-(|
|00002ff0| 61 37 29 00 80 7e 2e 6c | 20 38 28 61 33 2c 64 31 |a7)..~.l| 8(a3,d1|
|00003000| 29 2c 2d 28 61 37 29 00 | 27 64 6c 6f 6f 70 00 80 |),-(a7).|'dloop..|
|00003010| 5c 20 64 30 2c 64 31 3a | 80 4d 20 27 64 64 6f 6e |\ d0,d1:|.M 'ddon|
|00003020| 65 3a 80 a7 20 23 31 32 | 2c 64 31 00 80 7e 2e 6c |e:.. #12|,d1..~.l|
|00003030| 20 30 28 61 33 2c 64 31 | 29 2c 31 32 28 61 33 2c | 0(a3,d1|),12(a3,|
|00003040| 64 31 29 00 80 7e 2e 6c | 20 34 28 61 33 2c 64 31 |d1)..~.l| 4(a3,d1|
|00003050| 29 2c 31 36 28 61 33 2c | 64 31 29 00 80 7e 2e 6c |),16(a3,|d1)..~.l|
|00003060| 20 38 28 61 33 2c 64 31 | 29 2c 32 30 28 61 33 2c | 8(a3,d1|),20(a3,|
|00003070| 64 31 29 00 80 58 20 27 | 64 6c 6f 6f 70 00 27 64 |d1)..X '|dloop.'d|
|00003080| 64 6f 6e 65 00 80 7e 2e | 6c 20 28 61 37 29 2b 2c |done..~.|l (a7)+,|
|00003090| 38 28 61 33 2c 64 31 29 | 00 80 7e 2e 6c 20 28 61 |8(a3,d1)|..~.l (a|
|000030a0| 37 29 2b 2c 34 28 61 33 | 2c 64 31 29 00 80 7e 2e |7)+,4(a3|,d1)..~.|
|000030b0| 6c 20 28 61 37 29 2b 2c | 30 28 61 33 2c 64 31 29 |l (a7)+,|0(a3,d1)|
|000030c0| 00 80 58 20 27 63 6c 6f | 6f 70 00 3b 00 27 64 6f |..X 'clo|op.;.'do|
|000030d0| 6e 65 00 3b 00 80 b0 20 | 64 34 3a 80 48 20 27 62 |ne.;... |d4:.H 'b|
|000030e0| 69 67 6c 6f 6f 70 00 3b | 00 80 b0 20 61 67 61 6d |igloop.;|... agam|
|000030f0| 6f 64 65 3a 80 48 20 27 | 64 6f 34 62 69 74 00 80 |ode:.H '|do4bit..|
|00003100| 7e 2e 6c 20 38 28 61 32 | 29 2c 61 30 3a 80 7e 2e |~.l 8(a2|),a0:.~.|
|00003110| 6c 20 28 61 31 29 2c 61 | 31 3a 80 79 20 2d 24 33 |l (a1),a|1:.y -$3|
|00003120| 37 32 28 61 36 29 3a 80 | 58 20 27 62 69 67 6c 6f |72(a6):.|X 'biglo|
|00003130| 6f 70 20 20 3b 6c 6f 61 | 64 72 67 62 33 32 00 27 |op ;loa|drgb32.'|
|00003140| 64 6f 34 62 69 74 00 80 | 7e 2e 6c 20 61 31 2c 61 |do4bit..|~.l a1,a|
|00003150| 30 3a 80 59 20 6d 61 6b | 65 34 62 69 74 72 67 62 |0:.Y mak|e4bitrgb|
|00003160| 73 00 80 7e 2e 6c 20 38 | 28 61 32 29 2c 61 30 3a |s..~.l 8|(a2),a0:|
|00003170| 80 79 20 5f 4c 6f 61 64 | 52 47 42 34 28 61 36 29 |.y _Load|RGB4(a6)|
|00003180| 3a 80 58 20 27 62 69 67 | 6c 6f 6f 70 00 3b 00 27 |:.X 'big|loop.;.'|
|00003190| 61 6c 6c 64 6f 6e 65 00 | 3b 00 80 82 2e 6c 20 28 |alldone.|;....l (|
|000031a0| 61 37 29 2b 2c 64 32 2d | 64 34 2f 61 32 2d 61 33 |a7)+,d2-|d4/a2-a3|
|000031b0| 3a 80 81 20 23 30 2c 64 | 30 3a 80 94 00 00 3b 2d |:.. #0,d|0:....;-|
|000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 3b 20 6e |--------|----.; n|
|00003200| 65 77 20 70 61 6c 65 74 | 74 65 20 63 6f 6d 6d 61 |ew palet|te comma|
|00003210| 6e 64 73 20 61 64 64 65 | 64 20 62 79 20 73 69 6d |nds adde|d by sim|
|00003220| 6f 6e 20 61 75 67 75 73 | 74 20 31 39 39 34 00 3b |on augus|t 1994.;|
|00003230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 00 00 2e |--------|-----...|
|00003270| 5f 63 79 63 6c 65 70 61 | 6c 65 74 74 65 3a 20 20 |_cyclepa|lette: |
|00003280| 20 20 20 20 3b 61 32 3d | 63 6f 6c 6f 72 20 70 61 | ;a2=|color pa|
|00003290| 6c 65 74 74 65 00 20 20 | 80 b0 20 34 28 61 32 29 |lette. |.. 4(a2)|
|000032a0| 3a 80 48 20 27 64 6f 6e | 65 3a 80 7e 2e 6c 20 61 |:.H 'don|e:.~.l a|
|000032b0| 32 2c 61 31 3a 80 7a 20 | 34 28 61 31 29 2c 61 30 |2,a1:.z |4(a1),a0|
|000032c0| 3a 80 81 20 23 30 2c 64 | 34 00 20 20 27 63 6c 6f |:.. #0,d|4. 'clo|
|000032d0| 6f 70 3a 80 40 20 23 32 | 2c 61 30 3a 80 7e 20 28 |op:.@ #2|,a0:.~ (|
|000032e0| 61 30 29 2b 2c 64 30 3a | 80 4f 20 27 64 6f 6e 65 |a0)+,d0:|.O 'done|
|000032f0| 3a 80 7e 20 28 61 30 29 | 2b 2c 64 31 00 20 20 80 |:.~ (a0)|+,d1. .|
|00003300| 81 20 23 30 2c 64 33 3a | 80 7e 20 28 61 30 29 2b |. #0,d3:|.~ (a0)+|
|00003310| 2c 64 32 3a 80 51 20 27 | 73 6b 69 70 3a 80 86 20 |,d2:.Q '|skip:.. |
|00003320| 64 32 3a 80 81 20 23 2d | 31 2c 64 33 00 20 20 27 |d2:.. #-|1,d3. '|
|00003330| 73 6b 69 70 3a 80 3d 20 | 28 61 30 29 2c 64 32 3a |skip:.= |(a0),d2:|
|00003340| 80 7e 20 64 32 2c 28 61 | 30 29 3a 80 5c 20 23 31 |.~ d2,(a|0):.\ #1|
|00003350| 36 33 38 34 2c 64 32 00 | 20 20 80 47 20 27 63 6c |6384,d2.| .G 'cl|
|00003360| 6f 6f 70 3a 80 a7 20 23 | 31 36 33 38 34 2c 64 32 |oop:.. #|16384,d2|
|00003370| 3a 80 7e 20 64 32 2c 28 | 61 30 29 3a 80 81 20 23 |:.~ d2,(|a0):.. #|
|00003380| 2d 31 2c 64 34 00 20 20 | 80 84 20 23 31 32 2c 64 |-1,d4. |.. #12,d|
|00003390| 30 3a 80 84 20 23 31 32 | 2c 64 31 3a 80 7e 2e 6c |0:.. #12|,d1:.~.l|
|000033a0| 20 28 61 31 29 2c 61 33 | 3a 80 40 20 23 34 2c 61 | (a1),a3|:.@ #4,a|
|000033b0| 33 3a 80 b0 20 64 33 3a | 80 48 20 27 64 6f 77 6e |3:.. d3:|.H 'down|
|000033c0| 00 20 20 80 7e 2e 6c 20 | 30 28 61 33 2c 64 30 29 |. .~.l |0(a3,d0)|
|000033d0| 2c 2d 28 61 37 29 3a 80 | 7e 2e 6c 20 34 28 61 33 |,-(a7):.|~.l 4(a3|
|000033e0| 2c 64 30 29 2c 2d 28 61 | 37 29 3a 80 7e 2e 6c 20 |,d0),-(a|7):.~.l |
|000033f0| 38 28 61 33 2c 64 30 29 | 2c 2d 28 61 37 29 00 20 |8(a3,d0)|,-(a7). |
|00003400| 20 27 75 6c 6f 6f 70 3a | 80 5c 20 64 31 2c 64 30 | 'uloop:|.\ d1,d0|
|00003410| 3a 80 46 20 27 75 64 6f | 6e 65 00 20 20 80 7e 2e |:.F 'udo|ne. .~.|
|00003420| 6c 20 31 32 28 61 33 2c | 64 30 29 2c 30 28 61 33 |l 12(a3,|d0),0(a3|
|00003430| 2c 64 30 29 3a 80 7e 2e | 6c 20 31 36 28 61 33 2c |,d0):.~.|l 16(a3,|
|00003440| 64 30 29 2c 34 28 61 33 | 2c 64 30 29 3a 80 7e 2e |d0),4(a3|,d0):.~.|
|00003450| 6c 20 32 30 28 61 33 2c | 64 30 29 2c 38 28 61 33 |l 20(a3,|d0),8(a3|
|00003460| 2c 64 30 29 00 20 20 80 | 3d 20 23 31 32 2c 64 30 |,d0). .|= #12,d0|
|00003470| 3a 80 58 20 27 75 6c 6f | 6f 70 00 20 20 27 75 64 |:.X 'ulo|op. 'ud|
|00003480| 6f 6e 65 3a 80 7e 2e 6c | 20 28 61 37 29 2b 2c 38 |one:.~.l| (a7)+,8|
|00003490| 28 61 33 2c 64 30 29 3a | 80 7e 2e 6c 20 28 61 37 |(a3,d0):|.~.l (a7|
|000034a0| 29 2b 2c 34 28 61 33 2c | 64 30 29 3a 80 7e 2e 6c |)+,4(a3,|d0):.~.l|
|000034b0| 20 28 61 37 29 2b 2c 30 | 28 61 33 2c 64 30 29 00 | (a7)+,0|(a3,d0).|
|000034c0| 20 20 80 58 20 27 63 6c | 6f 6f 70 00 20 20 27 64 | .X 'cl|oop. 'd|
|000034d0| 6f 77 6e 3a 80 7e 2e 6c | 20 30 28 61 33 2c 64 31 |own:.~.l| 0(a3,d1|
|000034e0| 29 2c 2d 28 61 37 29 3a | 80 7e 2e 6c 20 34 28 61 |),-(a7):|.~.l 4(a|
|000034f0| 33 2c 64 31 29 2c 2d 28 | 61 37 29 3a 80 7e 2e 6c |3,d1),-(|a7):.~.l|
|00003500| 20 38 28 61 33 2c 64 31 | 29 2c 2d 28 61 37 29 00 | 8(a3,d1|),-(a7).|
|00003510| 20 20 27 64 6c 6f 6f 70 | 3a 80 5c 20 64 30 2c 64 | 'dloop|:.\ d0,d|
|00003520| 31 3a 80 4d 20 27 64 64 | 6f 6e 65 3a 80 a7 20 23 |1:.M 'dd|one:.. #|
|00003530| 31 32 2c 64 31 00 20 20 | 80 7e 2e 6c 20 30 28 61 |12,d1. |.~.l 0(a|
|00003540| 33 2c 64 31 29 2c 31 32 | 28 61 33 2c 64 31 29 3a |3,d1),12|(a3,d1):|
|00003550| 80 7e 2e 6c 20 34 28 61 | 33 2c 64 31 29 2c 31 36 |.~.l 4(a|3,d1),16|
|00003560| 28 61 33 2c 64 31 29 3a | 80 7e 2e 6c 20 38 28 61 |(a3,d1):|.~.l 8(a|
|00003570| 33 2c 64 31 29 2c 32 30 | 28 61 33 2c 64 31 29 00 |3,d1),20|(a3,d1).|
|00003580| 20 20 80 58 20 27 64 6c | 6f 6f 70 00 20 20 27 64 | .X 'dl|oop. 'd|
|00003590| 64 6f 6e 65 3a 80 7e 2e | 6c 20 28 61 37 29 2b 2c |done:.~.|l (a7)+,|
|000035a0| 38 28 61 33 2c 64 31 29 | 3a 80 7e 2e 6c 20 28 61 |8(a3,d1)|:.~.l (a|
|000035b0| 37 29 2b 2c 34 28 61 33 | 2c 64 31 29 3a 80 7e 2e |7)+,4(a3|,d1):.~.|
|000035c0| 6c 20 28 61 37 29 2b 2c | 30 28 61 33 2c 64 31 29 |l (a7)+,|0(a3,d1)|
|000035d0| 00 20 20 80 58 20 27 63 | 6c 6f 6f 70 00 20 20 27 |. .X 'c|loop. '|
|000035e0| 64 6f 6e 65 3a 80 94 00 | 00 2e 5f 66 61 64 65 70 |done:...|.._fadep|
|000035f0| 61 6c 65 74 74 65 3a 20 | 20 20 20 20 20 3b 61 30 |alette: | ;a0|
|00003600| 3d 73 72 63 20 61 31 3d | 64 65 73 74 20 64 32 3d |=src a1=|dest d2=|
|00003610| 62 72 69 67 68 74 6e 65 | 73 73 2e 71 00 20 20 80 |brightne|ss.q. .|
|00003620| 7e 20 34 28 61 30 29 2c | 64 30 3a 80 48 20 6e 6f |~ 4(a0),|d0:.H no|
|00003630| 63 6f 6c 73 3a 80 5c 20 | 34 28 61 31 29 2c 64 30 |cols:.\ |4(a1),d0|
|00003640| 3a 80 4a 20 6e 6f 63 6f | 6c 73 3a 80 7d 2e 6c 23 |:.J noco|ls:.}.l#|
|00003650| 38 2c 64 32 00 20 20 80 | 7e 2e 6c 20 28 61 30 29 |8,d2. .|~.l (a0)|
|00003660| 2c 61 30 3a 80 40 23 32 | 2c 61 30 3a 80 7e 2e 6c |,a0:.@#2|,a0:.~.l|
|00003670| 28 61 31 29 2c 61 31 3a | 80 40 23 34 2c 61 31 3a |(a1),a1:|.@#4,a1:|
|00003680| 80 aa 23 31 2c 64 30 00 | 20 20 80 7e 2e 6c 20 23 |..#1,d0.| .~.l #|
|00003690| 24 31 30 30 30 30 30 30 | 2c 64 37 20 3b 6d 61 78 |$1000000|,d7 ;max|
|000036a0| 21 00 6e 78 63 6f 6c 3a | 00 20 20 80 82 2e 6c 20 |!.nxcol:|. ...l |
|000036b0| 28 61 30 29 2b 2c 64 33 | 2d 64 35 00 20 20 80 84 |(a0)+,d3|-d5. ..|
|000036c0| 20 64 32 2c 64 33 3a 80 | 5c 2e 6c 20 64 37 2c 64 | d2,d3:.|\.l d7,d|
|000036d0| 33 3a 80 47 20 6f 6b 31 | 3a 80 81 23 2d 31 2c 64 |3:.G ok1|:..#-1,d|
|000036e0| 33 3a 6f 6b 31 3a 80 44 | 2e 6c 23 38 2c 64 33 00 |3:ok1:.D|.l#8,d3.|
|000036f0| 20 20 80 84 20 64 32 2c | 64 34 3a 80 5c 2e 6c 20 | .. d2,|d4:.\.l |
|00003700| 64 37 2c 64 34 3a 80 47 | 20 6f 6b 32 3a 80 81 23 |d7,d4:.G| ok2:..#|
|00003710| 2d 31 2c 64 34 3a 6f 6b | 32 3a 80 44 2e 6c 23 38 |-1,d4:ok|2:.D.l#8|
|00003720| 2c 64 34 00 20 20 80 84 | 20 64 32 2c 64 35 3a 80 |,d4. ..| d2,d5:.|
|00003730| 5c 2e 6c 20 64 37 2c 64 | 35 3a 80 47 20 6f 6b 33 |\.l d7,d|5:.G ok3|
|00003740| 3a 80 81 23 2d 31 2c 64 | 35 3a 6f 6b 33 3a 80 44 |:..#-1,d|5:ok3:.D|
|00003750| 2e 6c 23 38 2c 64 35 00 | 20 20 80 82 2e 6c 20 64 |.l#8,d5.| ...l d|
|00003760| 33 2d 64 35 2c 28 61 31 | 29 3a 80 3d 23 31 32 2c |3-d5,(a1|):.=#12,|
|00003770| 61 31 3a 80 6f 20 64 30 | 2c 6e 78 63 6f 6c 00 20 |a1:.o d0|,nxcol. |
|00003780| 20 6e 6f 63 6f 6c 73 3a | 80 94 00 00 2e 5f 69 6e | nocols:|....._in|
|00003790| 69 74 70 61 6c 65 74 74 | 65 3a 20 20 20 3b 61 33 |itpalett|e: ;a3|
|000037a0| 2c 64 31 20 70 61 6c 65 | 74 74 65 3d 61 33 20 64 |,d1 pale|tte=a3 d|
|000037b0| 31 3d 6e 75 6d 63 6f 6c | 73 00 20 20 80 7e 20 64 |1=numcol|s. .~ d|
|000037c0| 31 2c 64 37 3a 80 7e 2e | 6c 20 28 61 33 29 2c 64 |1,d7:.~.|l (a3),d|
|000037d0| 30 3a 80 48 20 6e 6f 6f | 6c 64 3a 80 7e 2e 6c 20 |0:.H noo|ld:.~.l |
|000037e0| 64 30 2c 61 31 3a 80 7e | 20 34 28 61 33 29 2c 64 |d0,a1:.~| 4(a3),d|
|000037f0| 30 00 20 20 80 84 20 23 | 31 32 2c 64 30 3a 80 40 |0. .. #|12,d0:.@|
|00003800| 23 38 2c 64 30 3a 80 38 | 24 63 30 30 33 00 6e 6f |#8,d0:.8|$c003.no|
|00003810| 6f 6c 64 3a 80 7e 20 64 | 37 2c 64 30 3a 80 84 20 |old:.~ d|7,d0:.. |
|00003820| 23 31 32 2c 64 30 3a 80 | 40 23 38 2c 64 30 3a 80 |#12,d0:.|@#8,d0:.|
|00003830| 7e 2e 6c 20 23 24 31 30 | 30 30 31 2c 64 31 3a 80 |~.l #$10|001,d1:.|
|00003840| 38 20 24 63 30 30 32 00 | 20 20 80 7e 2e 6c 20 64 |8 $c002.| .~.l d|
|00003850| 30 2c 28 61 33 29 3a 80 | 7e 20 64 37 2c 34 28 61 |0,(a3):.|~ d7,4(a|
|00003860| 33 29 3a 80 94 00 00 2e | 5f 70 61 6c 65 74 74 65 |3):.....|_palette|
|00003870| 72 61 6e 67 65 3a 20 20 | 20 3b 64 31 3d 73 74 61 |range: | ;d1=sta|
|00003880| 72 74 20 64 32 3d 65 6e | 64 20 64 33 2d 64 35 20 |rt d2=en|d d3-d5 |
|00003890| 2d 28 61 32 29 2e 2e 2e | 00 20 20 80 a7 20 64 31 |-(a2)...|. .. d1|
|000038a0| 2c 64 32 3a 80 4f 20 6e | 6f 70 72 3a 80 40 23 31 |,d2:.O n|opr:.@#1|
|000038b0| 2c 64 32 3a 80 5c 20 34 | 28 61 33 29 2c 64 32 3a |,d2:.\ 4|(a3),d2:|
|000038c0| 80 4a 20 6e 6f 70 72 00 | 20 20 80 7e 2e 6c 20 28 |.J nopr.| .~.l (|
|000038d0| 61 33 29 2c 61 30 3a 80 | 44 23 32 2c 64 31 3a 80 |a3),a0:.|D#2,d1:.|
|000038e0| 7a 20 34 28 61 30 2c 64 | 31 29 2c 61 30 00 20 20 |z 4(a0,d|1),a0. |
|000038f0| 80 82 20 2d 36 28 61 32 | 29 2c 64 30 2f 64 36 2d |.. -6(a2|),d0/d6-|
|00003900| 64 37 3a 80 a7 20 64 33 | 2c 64 37 3a 80 a7 20 64 |d7:.. d3|,d7:.. d|
|00003910| 34 2c 64 36 3a 80 a7 20 | 64 35 2c 64 30 00 20 20 |4,d6:.. |d5,d0. |
|00003920| 80 76 2e 6c 20 64 30 3a | 80 44 2e 6c 23 38 2c 64 |.v.l d0:|.D.l#8,d|
|00003930| 30 3a 80 71 20 64 32 2c | 64 30 3a 80 ac 20 64 30 |0:.q d2,|d0:.. d0|
|00003940| 00 20 20 80 76 2e 6c 20 | 64 36 3a 80 44 2e 6c 23 |. .v.l |d6:.D.l#|
|00003950| 38 2c 64 36 3a 80 71 20 | 64 32 2c 64 36 3a 80 ac |8,d6:.q |d2,d6:..|
|00003960| 20 64 36 00 20 20 80 76 | 2e 6c 20 64 37 3a 80 44 | d6. .v|.l d7:.D|
|00003970| 2e 6c 23 38 2c 64 37 3a | 80 71 20 64 32 2c 64 37 |.l#8,d7:|.q d2,d7|
|00003980| 3a 80 ac 20 64 37 00 20 | 20 80 76 2e 6c 20 64 33 |:.. d7. | .v.l d3|
|00003990| 3a 80 ac 20 64 33 3a 80 | 44 2e 6c 23 38 2c 64 33 |:.. d3:.|D.l#8,d3|
|000039a0| 3a 80 76 2e 6c 20 64 34 | 3a 80 ac 20 64 34 3a 80 |:.v.l d4|:.. d4:.|
|000039b0| 44 2e 6c 23 38 2c 64 34 | 00 20 20 80 76 2e 6c 20 |D.l#8,d4|. .v.l |
|000039c0| 64 35 3a 80 ac 20 64 35 | 3a 80 44 2e 6c 23 38 2c |d5:.. d5|:.D.l#8,|
|000039d0| 64 35 3a 80 81 23 31 32 | 2c 64 31 3a 80 aa 23 31 |d5:..#12|,d1:..#1|
|000039e0| 2c 64 32 00 20 20 6e 78 | 63 70 3a 80 82 2e 6c 20 |,d2. nx|cp:...l |
|000039f0| 64 33 2d 64 35 2c 28 61 | 30 29 3a 80 3d 20 64 31 |d3-d5,(a|0):.= d1|
|00003a00| 2c 61 30 3a 80 3d 2e 6c | 20 64 37 2c 64 33 3a 80 |,a0:.=.l| d7,d3:.|
|00003a10| 3d 2e 6c 20 64 36 2c 64 | 34 3a 80 3d 2e 6c 20 64 |=.l d6,d|4:.=.l d|
|00003a20| 30 2c 64 35 00 20 20 80 | 6f 20 64 32 2c 6e 78 63 |0,d5. .|o d2,nxc|
|00003a30| 70 3a 6e 6f 70 72 3a 80 | 94 00 00 2e 5f 64 75 70 |p:nopr:.|...._dup|
|00003a40| 6c 69 63 61 74 65 70 61 | 6c 65 74 74 65 3a 20 20 |licatepa|lette: |
|00003a50| 20 20 3b 61 32 3d 73 72 | 63 20 61 33 3d 64 65 73 | ;a2=sr|c a3=des|
|00003a60| 74 00 20 20 80 7e 20 34 | 28 61 32 29 2c 64 31 3a |t. .~ 4|(a2),d1:|
|00003a70| 80 48 20 73 74 75 66 66 | 65 64 00 20 20 80 59 20 |.H stuff|ed. .Y |
|00003a80| 5f 69 6e 69 74 70 61 6c | 65 74 74 65 3a 80 7e 20 |_initpal|ette:.~ |
|00003a90| 34 28 61 32 29 2c 64 30 | 3a 80 84 20 23 33 2c 64 |4(a2),d0|:.. #3,d|
|00003aa0| 30 3a 80 aa 23 31 2c 64 | 30 00 20 20 80 7e 2e 6c |0:..#1,d|0. .~.l|
|00003ab0| 20 28 61 32 29 2c 61 30 | 3a 80 40 23 34 2c 61 30 | (a2),a0|:.@#4,a0|
|00003ac0| 3a 80 7e 2e 6c 20 28 61 | 33 29 2c 61 31 3a 80 40 |:.~.l (a|3),a1:.@|
|00003ad0| 23 34 2c 61 31 00 20 20 | 6e 78 63 64 70 3a 80 7e |#4,a1. |nxcdp:.~|
|00003ae0| 2e 6c 20 28 61 30 29 2b | 2c 28 61 31 29 2b 3a 80 |.l (a0)+|,(a1)+:.|
|00003af0| 6f 20 64 30 2c 6e 78 63 | 64 70 3a 73 74 75 66 66 |o d0,nxc|dp:stuff|
|00003b00| 65 64 3a 80 94 00 00 2e | 5f 73 61 76 65 70 61 6c |ed:.....|_savepal|
|00003b10| 65 74 74 65 3a 20 20 20 | 20 20 20 20 20 20 3b 61 |ette: | ;a|
|00003b20| 31 3d 70 61 6c 65 74 74 | 65 20 64 31 3d 73 74 72 |1=palett|e d1=str|
|00003b30| 69 6e 67 00 20 20 80 94 | 00 00 3b 2d 2d 2d 2d 2d |ing. ..|..;-----|
|00003b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b70| 2d 2d 2d 2d 2d 2d 2d 2d | 00 3b 2d 2d 2d 2d 2d 2d |--------|.;------|
|00003b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003bb0| 2d 2d 2d 2d 2d 2d 2d 00 | 00 00 65 72 72 30 3a 80 |-------.|..err0:.|
|00003bc0| 7e 2e 6c 20 23 6d 65 73 | 73 30 2c 64 30 3a 80 ae |~.l #mes|s0,d0:..|
|00003bd0| 20 23 30 00 65 72 72 31 | 3a 80 7e 2e 6c 20 23 6d | #0.err1|:.~.l #m|
|00003be0| 65 73 73 31 2c 64 30 3a | 80 ae 20 23 30 00 65 72 |ess1,d0:|.. #0.er|
|00003bf0| 72 64 3a 80 7e 2e 6c 20 | 23 6d 65 73 73 64 2c 64 |rd:.~.l |#messd,d|
|00003c00| 30 3a 80 ae 20 23 30 00 | 00 3b 2a 2a 2a 2a 2a 2a |0:.. #0.|.;******|
|00003c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 45 52 52 4f |********|*** ERRO|
|00003c20| 52 53 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |RS *****|********|
|00003c30| 2a 2a 2a 2a 2a 2a 2a 00 | 00 65 72 72 6f 72 73 00 |*******.|.errors.|
|00003c40| 65 72 72 32 3a 80 7e 2e | 6c 20 23 6d 65 73 73 32 |err2:.~.|l #mess2|
|00003c50| 2c 64 30 3a 80 ae 20 23 | 30 00 65 72 72 33 3a 80 |,d0:.. #|0.err3:.|
|00003c60| 7e 2e 6c 20 23 6d 65 73 | 73 33 2c 64 30 3a 80 ae |~.l #mes|s3,d0:..|
|00003c70| 20 23 30 00 65 72 72 34 | 3a 80 7e 2e 6c 20 23 6d | #0.err4|:.~.l #m|
|00003c80| 65 73 73 34 2c 64 30 3a | 80 ae 20 23 30 00 65 72 |ess4,d0:|.. #0.er|
|00003c90| 72 35 3a 80 7e 2e 6c 20 | 23 6d 65 73 73 35 2c 64 |r5:.~.l |#mess5,d|
|00003ca0| 30 3a 80 ae 20 23 30 00 | 65 72 72 36 3a 80 7e 2e |0:.. #0.|err6:.~.|
|00003cb0| 6c 20 23 6d 65 73 73 36 | 2c 64 30 3a 80 ae 20 23 |l #mess6|,d0:.. #|
|00003cc0| 30 00 65 72 72 37 3a 80 | 7e 2e 6c 20 23 6d 65 73 |0.err7:.|~.l #mes|
|00003cd0| 73 37 2c 64 30 3a 80 ae | 20 23 30 00 65 72 72 38 |s7,d0:..| #0.err8|
|00003ce0| 3a 80 7e 2e 6c 20 23 6d | 65 73 73 38 2c 64 30 3a |:.~.l #m|ess8,d0:|
|00003cf0| 80 ae 20 23 30 00 65 72 | 72 39 3a 80 7e 2e 6c 20 |.. #0.er|r9:.~.l |
|00003d00| 23 6d 65 73 73 39 2c 64 | 30 3a 80 ae 20 23 30 00 |#mess9,d|0:.. #0.|
|00003d10| 65 72 72 61 3a 80 7e 2e | 6c 20 23 6d 65 73 73 61 |erra:.~.|l #messa|
|00003d20| 2c 64 30 3a 80 ae 20 23 | 30 00 65 72 72 62 3a 80 |,d0:.. #|0.errb:.|
|00003d30| 7e 2e 6c 20 23 6d 65 73 | 73 62 2c 64 30 3a 80 ae |~.l #mes|sb,d0:..|
|00003d40| 20 23 30 00 65 72 72 63 | 3a 80 7e 2e 6c 20 23 6d | #0.errc|:.~.l #m|
|00003d50| 65 73 73 63 2c 64 30 3a | 80 ae 20 23 30 00 3b 65 |essc,d0:|.. #0.;e|
|00003d60| 72 72 64 00 65 72 72 65 | 3a 80 7e 2e 6c 20 23 6d |rrd.erre|:.~.l #m|
|00003d70| 65 73 73 65 2c 64 30 3a | 80 ae 20 23 30 00 00 6d |esse,d0:|.. #0..m|
|00003d80| 65 73 73 30 3a 80 25 2e | 62 20 22 43 61 6e 27 74 |ess0:.%.|b "Can't|
|00003d90| 20 4f 70 65 6e 20 49 46 | 46 22 2c 30 00 6d 65 73 | Open IF|F",0.mes|
|00003da0| 73 31 3a 80 25 2e 62 20 | 22 43 61 6e 27 74 20 66 |s1:.%.b |"Can't f|
|00003db0| 69 6e 64 20 49 46 46 20 | 27 43 4d 41 50 27 22 2c |ind IFF |'CMAP'",|
|00003dc0| 30 00 6d 65 73 73 32 3a | 80 25 2e 62 20 22 43 61 |0.mess2:|.%.b "Ca|
|00003dd0| 6e 27 74 20 52 65 61 64 | 20 46 69 6c 65 22 2c 30 |n't Read| File",0|
|00003de0| 00 6d 65 73 73 33 3a 80 | 25 2e 62 20 22 55 6e 69 |.mess3:.|%.b "Uni|
|00003df0| 6e 69 74 69 61 6c 69 7a | 65 64 20 53 63 72 65 65 |nitializ|ed Scree|
|00003e00| 6e 22 2c 30 00 6d 65 73 | 73 34 3a 80 25 2e 62 20 |n",0.mes|s4:.%.b |
|00003e10| 22 55 6e 69 6e 69 74 69 | 61 6c 69 7a 65 64 20 50 |"Uniniti|alized P|
|00003e20| 61 6c 65 74 74 65 22 2c | 30 00 6d 65 73 73 35 3a |alette",|0.mess5:|
|00003e30| 80 25 2e 62 20 22 52 47 | 42 20 63 6f 6d 70 6f 6e |.%.b "RG|B compon|
|00003e40| 65 6e 74 20 6f 75 74 20 | 6f 66 20 72 61 6e 67 65 |ent out |of range|
|00003e50| 22 2c 30 00 6d 65 73 73 | 36 3a 80 25 2e 62 20 22 |",0.mess|6:.%.b "|
|00003e60| 55 6e 69 6e 69 74 69 61 | 6c 69 7a 65 64 20 53 6c |Uninitia|lized Sl|
|00003e70| 69 63 65 22 2c 30 00 6d | 65 73 73 37 3a 80 25 2e |ice",0.m|ess7:.%.|
|00003e80| 62 20 22 4e 6f 74 20 65 | 6e 6f 75 67 68 20 63 6f |b "Not e|nough co|
|00003e90| 6c 6f 75 72 73 20 69 6e | 20 53 6c 69 63 65 22 2c |lours in| Slice",|
|00003ea0| 30 00 6d 65 73 73 38 3a | 80 25 2e 62 20 22 43 6f |0.mess8:|.%.b "Co|
|00003eb0| 6c 6f 75 72 20 6d 75 73 | 74 20 62 65 20 69 6e 20 |lour mus|t be in |
|00003ec0| 74 68 65 20 72 61 6e 67 | 65 20 30 2d 33 31 22 2c |the rang|e 0-31",|
|00003ed0| 30 00 6d 65 73 73 39 3a | 80 25 2e 62 20 22 43 79 |0.mess9:|.%.b "Cy|
|00003ee0| 63 6c 65 20 63 6f 6c 6f | 75 72 73 20 6f 75 74 20 |cle colo|urs out |
|00003ef0| 6f 66 20 72 61 6e 67 65 | 22 2c 30 00 6d 65 73 73 |of range|",0.mess|
|00003f00| 61 3a 80 25 2e 62 20 22 | 43 79 63 6c 65 20 73 70 |a:.%.b "|Cycle sp|
|00003f10| 65 65 64 20 4d 55 53 54 | 20 62 65 20 3e 3d 2d 31 |eed MUST| be >=-1|
|00003f20| 20 41 4e 44 20 3c 3d 31 | 22 2c 30 00 6d 65 73 73 | AND <=1|",0.mess|
|00003f30| 62 3a 80 25 2e 62 20 22 | 43 79 63 6c 65 20 4d 55 |b:.%.b "|Cycle MU|
|00003f40| 53 54 20 62 65 20 3e 3d | 30 20 41 4e 44 20 3c 3d |ST be >=|0 AND <=|
|00003f50| 36 22 2c 30 00 6d 65 73 | 73 63 3a 80 25 2e 62 20 |6",0.mes|sc:.%.b |
|00003f60| 22 55 6e 69 6e 69 74 69 | 61 6c 69 7a 65 64 20 63 |"Uniniti|alized c|
|00003f70| 79 63 6c 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |ycle inf|ormation|
|00003f80| 22 2c 30 00 6d 65 73 73 | 64 3a 80 25 2e 62 20 22 |",0.mess|d:.%.b "|
|00003f90| 43 79 63 6c 65 73 20 6d | 75 73 74 20 62 65 20 61 |Cycles m|ust be a|
|00003fa0| 64 64 65 64 20 69 6e 20 | 6f 72 64 65 72 2c 20 79 |dded in |order, y|
|00003fb0| 6f 75 20 73 69 6c 6c 79 | 20 73 61 75 73 61 67 65 |ou silly| sausage|
|00003fc0| 21 22 2c 30 00 6d 65 73 | 73 65 3a 80 25 2e 62 20 |!",0.mes|se:.%.b |
|00003fd0| 22 4e 6f 74 20 61 6e 20 | 41 47 41 20 6d 61 63 68 |"Not an |AGA mach|
|00003fe0| 69 6e 65 21 22 2c 30 00 | 80 27 00 00 72 67 62 63 |ine!",0.|.'..rgbc|
|00003ff0| 68 6b 00 80 25 20 24 61 | 30 30 31 3a 80 25 2e 6c |hk..% $a|001:.%.l|
|00004000| 20 62 5f 72 67 62 63 68 | 6b 00 80 b0 2e 6c 20 28 | b_rgbch|k....l (|
|00004010| 61 30 29 3a 80 48 20 65 | 72 72 33 3a 80 5c 20 23 |a0):.H e|rr3:.\ #|
|00004020| 32 35 35 2c 64 30 3a 80 | 4b 20 65 72 72 38 3a 80 |255,d0:.|K err8:.|
|00004030| b0 20 61 67 61 6d 6f 64 | 65 3a 80 50 20 27 61 67 |. agamod|e:.P 'ag|
|00004040| 61 00 80 5c 20 23 33 31 | 2c 64 30 3a 80 4b 20 65 |a..\ #31|,d0:.K e|
|00004050| 72 72 38 3a 27 61 67 61 | 00 72 67 62 63 68 6b 32 |rr8:'aga|.rgbchk2|
|00004060| 3a 80 5c 20 23 31 35 2c | 64 31 3a 80 4b 20 65 72 |:.\ #15,|d1:.K er|
|00004070| 72 35 00 80 5c 20 23 31 | 35 2c 64 32 3a 80 4b 20 |r5..\ #1|5,d2:.K |
|00004080| 65 72 72 35 3a 80 5c 20 | 23 31 35 2c 64 33 3a 80 |err5:.\ |#15,d3:.|
|00004090| 4b 20 65 72 72 35 00 80 | 94 00 62 5f 72 67 62 63 |K err5..|..b_rgbc|
|000040a0| 68 6b 00 80 b0 20 28 61 | 30 29 3a 80 48 20 65 72 |hk... (a|0):.H er|
|000040b0| 72 36 3a 80 5c 20 23 33 | 31 2c 64 30 3a 80 4b 20 |r6:.\ #3|1,d0:.K |
|000040c0| 65 72 72 38 00 80 5c 20 | 38 28 61 30 29 2c 64 30 |err8..\ |8(a0),d0|
|000040d0| 3a 80 46 20 65 72 72 37 | 00 80 58 20 72 67 62 63 |:.F err7|..X rgbc|
|000040e0| 68 6b 32 00 00 61 61 72 | 67 62 63 68 6b 00 80 b0 |hk2..aar|gbchk...|
|000040f0| 20 61 67 61 6d 6f 64 65 | 3a 80 48 20 65 72 72 65 | agamode|:.H erre|
|00004100| 00 3b 00 80 b0 2e 6c 20 | 28 61 30 29 3a 80 48 20 |.;....l |(a0):.H |
|00004110| 65 72 72 33 3a 80 5c 20 | 23 32 35 35 2c 64 30 3a |err3:.\ |#255,d0:|
|00004120| 80 4b 20 65 72 72 38 00 | 80 5c 20 23 32 35 35 2c |.K err8.|.\ #255,|
|00004130| 64 31 3a 80 4b 20 65 72 | 72 35 3a 80 5c 20 23 32 |d1:.K er|r5:.\ #2|
|00004140| 35 35 2c 64 32 3a 80 4b | 20 65 72 72 35 3a 80 5c |55,d2:.K| err5:.\|
|00004150| 20 23 32 35 35 2c 64 33 | 3a 80 4b 20 65 72 72 35 | #255,d3|:.K err5|
|00004160| 00 80 94 00 00 75 73 65 | 70 61 6c 63 68 6b 00 80 |.....use|palchk..|
|00004170| 25 20 24 61 30 30 31 3a | 80 25 2e 6c 20 62 5f 75 |% $a001:|.%.l b_u|
|00004180| 73 65 70 61 6c 63 68 6b | 00 3b 00 80 b0 20 70 61 |sepalchk|.;... pa|
|00004190| 6c 6d 6f 64 65 3a 80 48 | 20 64 6f 69 74 33 3a 80 |lmode:.H| doit3:.|
|000041a0| 94 00 3b 00 62 5f 75 73 | 65 70 61 6c 63 68 6b 00 |..;.b_us|epalchk.|
|000041b0| 3b 00 80 b0 20 70 61 6c | 6d 6f 64 65 3a 80 48 20 |;... pal|mode:.H |
|000041c0| 64 6f 69 74 34 3a 80 94 | 00 00 73 68 6f 77 70 61 |doit4:..|..showpa|
|000041d0| 6c 63 68 6b 00 80 25 20 | 24 61 30 30 31 3a 80 25 |lchk..% |$a001:.%|
|000041e0| 2e 6c 20 62 5f 73 68 6f | 77 70 61 6c 63 68 6b 00 |.l b_sho|wpalchk.|
|000041f0| 64 6f 69 74 33 3a 80 b0 | 2e 6c 20 28 61 32 29 3a |doit3:..|.l (a2):|
|00004200| 80 48 20 65 72 72 33 3a | 80 94 00 00 62 5f 73 68 |.H err3:|....b_sh|
|00004210| 6f 77 70 61 6c 63 68 6b | 00 64 6f 69 74 34 3a 80 |owpalchk|.doit4:.|
|00004220| b0 20 28 61 30 29 3a 80 | 48 20 65 72 72 36 3a 80 |. (a0):.|H err6:.|
|00004230| b0 20 38 28 61 30 29 3a | 80 48 20 65 72 72 37 3a |. 8(a0):|.H err7:|
|00004240| 80 94 00 00 64 6f 63 79 | 63 6c 65 63 68 6b 00 80 |....docy|clechk..|
|00004250| b0 20 34 28 61 33 29 3a | 80 48 20 65 72 72 63 3a |. 4(a3):|.H errc:|
|00004260| 80 94 00 00 63 6f 6c 63 | 68 6b 3a 80 25 20 24 61 |....colc|hk:.% $a|
|00004270| 30 30 31 3a 80 25 2e 6c | 20 62 5f 63 6f 6c 63 68 |001:.%.l| b_colch|
|00004280| 6b 00 80 b0 2e 6c 20 28 | 61 30 29 3a 80 48 20 65 |k....l (|a0):.H e|
|00004290| 72 72 33 3a 80 94 00 62 | 5f 63 6f 6c 63 68 6b 3a |rr3:...b|_colchk:|
|000042a0| 80 b0 20 28 61 30 29 3a | 80 48 20 65 72 72 36 3a |.. (a0):|.H err6:|
|000042b0| 80 94 00 00 61 67 61 63 | 6f 6c 63 68 6b 3a 80 b0 |....agac|olchk:..|
|000042c0| 20 61 67 61 6d 6f 64 65 | 3a 80 48 20 65 72 72 65 | agamode|:.H erre|
|000042d0| 3a 80 b0 2e 6c 20 28 61 | 30 29 3a 80 48 20 65 72 |:...l (a|0):.H er|
|000042e0| 72 33 3a 80 94 00 00 70 | 72 67 62 63 68 6b 00 3b |r3:....p|rgbchk.;|
|000042f0| 00 80 5c 20 23 32 35 35 | 2c 64 31 3a 80 4b 20 65 |..\ #255|,d1:.K e|
|00004300| 72 72 38 00 80 b0 20 61 | 67 61 6d 6f 64 65 3a 80 |rr8... a|gamode:.|
|00004310| 50 20 27 61 67 61 00 80 | 5c 20 23 33 31 2c 64 31 |P 'aga..|\ #31,d1|
|00004320| 3a 80 4b 20 65 72 72 38 | 00 27 61 67 61 3a 80 5c |:.K err8|.'aga:.\|
|00004330| 20 23 31 35 2c 64 32 3a | 80 4b 20 65 72 72 35 00 | #15,d2:|.K err5.|
|00004340| 80 5c 20 23 31 35 2c 64 | 33 3a 80 4b 20 65 72 72 |.\ #15,d|3:.K err|
|00004350| 35 00 80 5c 20 23 31 35 | 2c 64 34 3a 80 4b 20 65 |5..\ #15|,d4:.K e|
|00004360| 72 72 35 00 80 94 00 00 | 61 61 70 72 67 62 63 68 |rr5.....|aaprgbch|
|00004370| 6b 00 3b 00 80 b0 20 61 | 67 61 6d 6f 64 65 3a 80 |k.;... a|gamode:.|
|00004380| 48 20 65 72 72 65 00 3b | 00 80 5c 20 23 32 35 35 |H erre.;|..\ #255|
|00004390| 2c 64 31 3a 80 4b 20 65 | 72 72 38 00 80 5c 20 23 |,d1:.K e|rr8..\ #|
|000043a0| 32 35 35 2c 64 32 3a 80 | 4b 20 65 72 72 35 00 80 |255,d2:.|K err5..|
|000043b0| 5c 20 23 32 35 35 2c 64 | 33 3a 80 4b 20 65 72 72 |\ #255,d|3:.K err|
|000043c0| 35 00 80 5c 20 23 32 35 | 35 2c 64 34 3a 80 4b 20 |5..\ #25|5,d4:.K |
|000043d0| 65 72 72 35 00 80 94 00 | 00 73 65 74 63 79 63 6c |err5....|.setcycl|
|000043e0| 65 63 68 6b 32 00 80 5c | 2e 6c 20 23 2d 24 31 30 |echk2..\|.l #-$10|
|000043f0| 30 30 30 2c 64 34 3a 80 | 4e 20 65 72 72 61 00 80 |000,d4:.|N erra..|
|00004400| 5c 2e 6c 20 23 24 31 30 | 30 30 30 2c 64 34 3a 80 |\.l #$10|000,d4:.|
|00004410| 4a 20 65 72 72 61 00 3b | 00 73 65 74 63 79 63 6c |J erra.;|.setcycl|
|00004420| 65 63 68 6b 00 80 5c 20 | 23 37 2c 64 31 3a 80 46 |echk..\ |#7,d1:.F|
|00004430| 20 65 72 72 62 00 80 5c | 20 23 33 32 2c 64 32 3a | errb..\| #32,d2:|
|00004440| 80 46 20 65 72 72 39 00 | 80 5c 20 23 33 32 2c 64 |.F err9.|.\ #32,d|
|00004450| 33 3a 80 46 20 65 72 72 | 39 00 80 94 00 00 |3:.F err|9..... |
+--------+-------------------------+-------------------------+--------+--------+
